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PREFACE 


This book has been written to act as a practical guide to using and programming 
the Amstrad CPC464 microcomputer. No prior knowledge of computing is 
assumed, nor is it needed to follow the text. 

The aim of the book is to give both newcomers, as well as the more 
experienced users, enough knowledge and understanding of the machine to 
enable them to write their own programs. At all stages, new concepts are 
thoroughly explained and backed by practical program examples. Coverage 
extends from the basics of the CPC464 computer and its operation to easy-to- 
understand, but nevertheless powerful, programming techniques. 


Richard Meadows Totteridge, London 
January 1985 


Richard Meadows is Head of the Department of Electronic and 
Communications Engineering at the Polytechnic of North London. He is an 
experienced lecturer and has written on a wide range of subjects, from popular 
home computing to advanced electronics. He is married with three children, 
and lives in Totteridge, North London. 


Dedication 


Alexis, Piers and James 


GETTING STARTED 


1.1 INTRODUCTION 


This introductory chapter is designed to familiarise the newcomer with using 
the Amstrad CPC464 computer to gain experience in using the keyboard, 
correcting mistakes if they are made, and seeing how to use some BASIC 
commands. 

Westart straightaway to learn how to communicate directly with the CPC464 
by typing in one of the most important commands in BASIC, the PRINT 
instruction. Using PRINT we can see how to use the computer as a calculator, 
how to display characters, words, symbols; and how to provide different 
formats for the display of results on monitor or tv screen. 

At the end of the chapter we take an introductory look at the screen display 
modes and the colour facilities available on the CPC464. 


1.2, SETTING UP AND MEANING OF SPECIAL KEYS 


If you are not already familiar with setting up the CPC464 computer, fig. 1.1 
summarises how to do this. 


Neutral lead 
(blue) 


Monitor 


Monitor power 
switch Mains power lead 
To printer 


(if available) 


Fig. 1.1 Setting up the Amstrad CPC464 computer. 
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Simply set up as shown; switch on the monitor (power switch at front); switch 
on the computer (slide switch on right hand side)—the red light on the 
computer top panel shows you are on. Virtually immediately the caption shown 
in fig. 1.2 appears on the screen. Adjust, if necessary, the brightness control 
(right hand side of monitor) for a clear display. 


Amstrad 64K Microcomputer <yi> 


P1384 Amstrad Consumer Electronics Sigg 
and Locomotive Software Ltd. 


BASIC 1.6 
Ready 
= 


Fig. 1.2 Display obtained on monitor when first switching on. Presence of cursor (the small 
square under Ready) shows the computer is ‘ready’ for immediate use. 


You are now ‘Ready’ to start. The “Ready” condition is always indicated by 
the presence of the screen cursor—the small square directly under the R of 
Ready on the display. 

The CPC464 computer has a full-size QWERTY keyboard that we will be 
using immediately to communicate with the computer. However, some keys 
have special functions and it is important to remember these: 


The ENTER key, see fig. 1.3(a): This key is used to ENTER direct 
commands and program line statements into the computer for processing. 
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The SHIFT keys, see fig. 1.3(b): The keyboard has two shift keys; pressing 
SHIFT and an alphabetic key generates the upper case (capital) characters; in 
the case of other keys, the character engraved on the top part of the key will be 
generated, e.g. pressing SHIFT and the ; key generates the + symbol. 

The CAPS LOCK key, see fig. 1.3(c): The CAPS LOCK key is switched on by 
pressing it down. When on it will generate upper case characters for the 
alphabetic keys, but continues to generate lower case characters (the character 
on the lower part of the key) for all other keys unless the SHIFT key is also 
pressed. CAPS LOCK is switched off by pressing the key again. 


ENTER 
ENTER SHIFT 
(a) the ENTER keys: (b) the SHIFT key: 
used to ENTER commands, when pressed upper case characters are 
statements, etc. generated 
CAPS 
LOCK DEL 
(c) the CAPS LOCK key: (d) to DELETE: 
when down (or ‘on’) upper deletes previous character 
case alphabetic characters are (to left of cursor) and may be used 
generated but lower case for repeatedly 


all other keys 


CLR 


(e) ‘CLeaRs’, i.e. deletes the 
character under the cursor and like DELete may be used repeatedly. 


CTRL | SHIFT | 


(f) To RESET the computer (i.e. clear the computer memory for a fresh start): 
press CTRL, SHIFT and ESC keys in order, holding each 
down until ESC key is pressed. 


ESC 


(g) ESCape key: (1) When pressed once will cause computer to pause 
when executing a program; the program 
can be restarted by pressing any other key. 
(2) When pressed twice, program execution is halted; 
‘Break’ message is displayed on screen. The cursor 
is also displayed and the computer is ‘ready’ for 
further commands. 


Fig. 1.3. Function of special keys on the CPC464 computer. 
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The DEL and CLR keys (see fig. 1.3(d) and (e)) are used for deleting or 
clearing characters when errors have been made. 

To RESET the computer (see fig. 1.3(f)): press CTRL, SHIFT and ESC keys 
in order, holding each key down until the ESC key is pressed. This action 
RESETs the computer completely, clearing the computer’s memory and any 
characters on the screen, and returns the Amstrad caption and cursor to the 
display of fig. 1.2. 

The ESC key (see fig. 1.3(g)); when pressed once, it will cause a pause in 
program execution; when pressed twice, it will halt or ‘Break’ program 
execution and return the cursor to the screen. 


1.3. USING THE COMPUTER AS A CALCULATOR 


Here we explain how to use the computer as a calculator in its direct mode— 
‘direct’ because the computer acts on a typed-in command immediately. We 
will be using the BASIC PRINT command and the arithmetic symbols 


+ , the + key, for addition 

— , the — key, for subtraction 

* the * key , for multiplication 
/ , the/ key, for division 


All we need to do to perform a calculation is to type in PRINT, press the 
space bar to leave a space, and then the calculation using the arithmetic 
symbols and number keys (see fig. 1.4). The calculation is performed 
immediately the ENTER key is pressed and the result is displayed on the screen. 
Never type in ENTER, just press the ENTER key. Always remember to leave a 
space between PRINT and the calculation. If you do not the computer will 
respond with the message ‘syntax error’’. If you make any mistakes use the 
DEL key (see next section) or simply press ENTER and start again. 

One further point, you can use the ‘print’ command in either lower or upper 
case, i.e. print and PRINT are identical. The computer makes no distinction 
between commands written in lower or upper case. 


Examples 

(1) To find 87 + 593 

Action: type in 

print 87 + 593 (and then press ENTER) 
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es 


Fig. 1.4 Positions of arithmetic +, —, *, / keys. 


The display obtained is shown in fig. 1.5. 

Note the calculation is performed and displayed immediately the ENTER key 
is pressed. The result is displayed followed by ‘Ready’ and the cursor. The 
computer is now ready for further calculations. 
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Amstrad 64K Microcomputer {vid 


©1984 Amstrad Consumer Electronics Ac 
and Locomotive Software L 
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Ready 

Print 87+593 
6308 

Ready 

a 


Fig.1.5 Screen display after initial switch on and on entering the print command: print 87 + 593. 


(2) To find 68.72 — 29.35 
Action: type in 
print 68.72 — 29.35 [ENTER] 
39.37 . . answer displayed. 

Note: use the full stop key for the decimal point and always remember to 
complete your print command by pressing ENTER; [ENTER] denotes this 
action. 


(3) To find 46.7 x 51.23 

Action: type in 

print 46.7 * 51.23 [ENTER] 

2392.441 . . -answer displayed. 


(4) To find 83.4 + 27.9 

Action: type in 

print 83.4 / 27.9 

2.989247 . . .-answer displayed. 
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(5) To find 52.6 + 3.4 x 5.21 — 842 + 63 
Action: type in 

print 52.6 + 3.4 * 5.21 — 842/63 
56.9489207 


By now if you have tried all the calculations you will be almost at the bottom of 
the monitor screen. Any further work will still be accommodated by the display 
automatically scrolling upwards. 


Use of ? for print 


We can use the ? key as shorthand for the print command, e.g. 

? 47.3 + 42.9 and PRINT 47.3 + 42.9 

are identical. A further advantage in using ? for print is that you do not have to 
leave a space between ? and the calculation. In programs ? can also be used for 
print and will be listed as such in the program listing. 


Exercise problems 1.1 


To gain some more practice try these: 
(1) 456 + 876. 

(2) 75 X 67 X 32. 

(3) 452.78 + 45.3. 

(4) 22.4 x 56.2 — 13.7 X 28.9. 

(5) 0.01672 = 0.00034. 


1.4 CLEARING THE SCREEN AND CORRECTING MISTAKES 


Clearing the screen 


Simply type in cls, followed as always by pressing ENTER to action the 
command, 1.e. 

cls [ENTER] 

This will clear the whole of the screen and Ready followed by the cursor will 
appear at the top of the screen. 


Correcting mistakes: use of arrow, CLR and DEL keys 


The forward and backward arrow keys can be used to position the cursor 
anywhere ina line. You can then use the CLR key to delete the character under 
the cursor or the DEL key to delete a character immediately to the left of the 
cursor. Holding down CLR or DEL keys will cause successive deletions; CLR 
effectively deletes characters to right of cursor continuously, DEL to the left. 
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Insertions can be made by first positioning the cursor to the wanted position 
using the arrow keys and then simply typing in. The rest of the line to the right 
of the cursor automatically scrolls sideways to make room for the insertions. 

For example, find 877.663 + 998.456 
Action: print877.663;998.446 
We have in fact (deliberately) made 3 mistakes: 

(1) Second decimal place figure in 998.446 should be S. 

This can be corrected by pressing backward arrow once to bring cursor over the 
6, then DEL key (deletes the 4), then the 5 key (inserts a 5). 

(2) The ; should be +. Correct this by positioning cursor over ; , press CLR (to 
clear ;) and + key for + insertion. 

(3) Space between print and calculation missing : position cursor to just before 
the ‘t’ in print and simply press space bar to enter space. Now press ENTER and 
the calculation will be executed. 


1.5 PRINT”. . .string. . .’’ commands, separators, tab and print using 


In this section we explain further uses of the print command including : 

(1) The PRINT “’.. .’” command which is used to instruct the computer to 
display characters, words, symbols, etc. typed within the double quotation 
marks. (Note: the characters enclosed within the quotation marks are known as 
strings in computer terminology.) 

(2) The use of the semi-colon (;) ina PRINT instruction. A semi-colon acts as a 
separator which provides an immediate display with no interleaving spaces 
between successive string items or a single space between numeric items. 

(3) The use of the comma (,) in a PRINT instruction. A comma instructs the 
computer to print out successive items spaced 13 columns apart, i.e. the first 
item begins at column 1, the second item at column 14, the third at column 27 
and so on; if an item exceeds 13 characters then a multiple of 13 columns is 
used. 

(4) The TAB command. 

PRINT TAB(n) “......” 

will cause n character spaces to be left before ‘printing’ a string or result. 

(5) PRINT using to format the results of calculations. 

Print using takes the form, 

PRINT USING “##+.+#+#”; (number, calculation, etc) 

and allows you to specify the form of the result. The “#+#+#.+#+#” sets the form of 
the result. In our example it is set to 3 places in front of the decimal point and 
two behind. Ifthe result to be printed exceeds the allocated number of #s infront 
of the decimal point, the result is still displayed but with a % symbol to indicate 
that the format is insufficient. 
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Examples 


(1) The command, 

PRINT “‘Happy Birthday” [ENTER] 

instructs the computer to display the words (the string) within the quotation 
marks. On pressing the ENTER key, the string is immediately displayed on the 
screen. 


(2) Examples showing use of semi-colon and comma: 
PRINT ‘'a’";"’b’";"’c"” [ENTER] 


abc .displayed 

PRINT “‘a”’ piel [ENTER] 

a b Cc . . displayed. 
t 

column 1 column 14 column 27 


(3) Next let us see how we can combine the display of both strings and the 
results of a calculation in a single PRINT statement. 
Suppose we wish to display: 
58.6 xX 3.29 = (answer here) 
on the screen. 
Action: type in, 
print ‘58.6 x 3.29 ="" ; 58.6 * 3.29 [ENTER] 


ee 


this instructs the this instructs computer 
computer to ‘print’ to work out and display 
the string within the result of calculation 


quotation marks 


typing in ; means answer 

will be displayed one space only 

to right of = sign in string 
Thus after pressing ENTER, the following is displayed on the screen: 
58.6 X 3.29 = 192.794 


(4) Examples of use of TAB: 
ene TAB(5) “a” [ENTER] 
. . .l.e. ‘a’ displayed 5 spaces from left-hand side of the screen. 
PRINT TAB(5) “a”; TAB(10) ‘’b’’; TAB(15) “c’” [ENTER] 
a b Cc . . .display obrained, 
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(5) Print using example: 

The computer will give results to 8 or 9 significant figures and this, more than 
often, is far too many. For example, 

PRINT 104.79*52.6/33.7 [ENTER] 


163.559466 . . -answer displayed. 
We can format our result to a given form to a defined number of decimal places 
using: 


PRINT USING “###.4+#"; 104.79*52.6/33.7 

This command will display the result to 3 decimal places, so on pressing (as 
always!) the [ENTER] key we obtain the display, 

163.559 


Exercise problems 1.2 


Try these. For the calculation try also to display the calculation ‘string’ as well 
as the result. 

(1) Calculate 56.7 + 3.3 and display on the screen 

(a) just the result, 

(b) the string ‘56.7/3.3 = "’ as well as the result, 

(c) the result to two decimal places. 


(2) Try typing in the following: 

mode 0 [ENTER] 

print “BASIC = Beginners All-purpose Symbolic Instruction Code”’ 
followed by, as always, ENTER. Try the same with mode 2 and also mode 1| for 
the first command. 


(3) Calculate the following and display the answers of a single screen line: 
4.62 X 3.8 , 57.33 + 6.3 , 42378.6 — 33499.7. 


(4) Type in the command, 

print Pl [ENTER] 

This will display x to 9 significant figures. 

What commands will display a to 1, 2, 3 and 4 decimal places? 


1.6 FURTHER CALCULATIONS 


Here we consider some further calculations involving the use of: 

? key for finding powers (7 is the lower case character on the £ key) 
SOR (X) for finding square roots 

Brackets (_) keys for more involved problems. 
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Examples 


(1) Find 86° 
Action: type in 
print 86 } 3 [ENTER] 
{Lt key pressed (see £ key); note display of the ‘upward arrow’ key 
on the screen is 


636056 . . -answer displayed. 
(2) Find 1.0857" 

Action: 

print 1.085 ¢ 20 [ENTER] 

5.112046 . . .answer displayed. 
(3) Find 5.4'4 

Action: 

print 5.4 7 1.4 [ENTER] 

10.60111 . . .-answer displayed. 


To find square roots: use of SQR(X) 


CPC464 BASIC supports a number of standard functions, which we consider in 
some detail in chapter 5. SQR(X) is one of them. It computes the square root of 
the number, or numeric expression, X, enclosed by the brackets. 


Examples 


(1) Find V2079.36 
Action: type in 
print SQR(2079.36) [ENTER] 
45.6 . . answer displayed. 
Note that the ( ) brackets—uppercase on keys 8 and 9 of main keyboard— 
must be used. 
We could, of course, use the 7 key, i.e. 
print 2079.36 7 0.5 [ENTER] 
45.6 . . .-answer displayed. 


(2) Find V0.00987 

Action: 

print SQR(0.00987) [ENTER] 
9.934787E—2 . . -answer displayed. 
Note 9.935E— 2 = 9.935 x 107? = 0.09935 
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Using brackets 


When working out calculations involving several different operations, e.g. 
addition, and/or multiplication, division, finding powers, etc., we must instruct 
the computer with the correct order. The computer acts according to the usual 
rules of precedence: 

(1) It evaluates terms contained in brackets first. 

(2) It carries out multiplication and division (from left to right) before addition 
and subtraction. 


Examples 


(1) Evaluate 5.6 X 2.3 


10.2 — 9.4 x 0.7 
We must enter the expression into the computer using brackets to group the 
numerator terms together and likewise the denominator, 1.e. 
Action: 
print (5.6*2.3)/(10.2 — 9.4*0.7) [ENTER] 
3.5580111 . . -answer displayed. 


(2) Evaluate 61.4 — 29.5 


4.8(56.2 + 33.6) 
Action: 
print (61.4 — 29.5)/(4.8*(56.2 + 33.6) ) [ENTER] 


* must be 
inserted 
outer brackets to hold together 
the total denominator 


7.400705E—2 . . answer displayed. 


(3) Evaluate | 21.7 } to 2 decimal places. 


3.8 + 6.5/3.5 
Action: 
print USING “##4+.+#+” ; (21.7/(3.8 + 6.5/3.5) ) 7 5 [ENTER] 
830.45 . . answer displayed. 


Exercise problems 1.3 


Try working out these: 
(1) V(5.62 x 3.98) 
(2) 1500 (12.6 + 9.4)? 
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(3) 39.6-° 
(4) 5.6(41.6 + 33.4) 


(144.5 — 96.2) 


(5) (2 + 3.6 x °°) 
36.2 + 45.8 


1.7 SCREEN DISPLAY: MODES 0, 1 AND 2 


The CPC464 computer can be operated in any one of three modes which dictate 
the size of character display on the screen, and if using a colour monitor or tv, 
the number of colours you can select. 

When you first switch on, the computer automatically defaults to mode 1, 
known as the normal mode. In mode | the screen can be considered as far as 
character unit size is concerned as consisting of 40 columns and 25 lines or rows, 
see fig. 1.6(b). Try typing 12345 etc. and completely fill a line of screen—note 
that you can display up to a maximum of 40 characters per line. In mode 1, four 
colours are available at any one time for screen background (paper) and 
character display (pen). The default colours—as you have obviously seen 
already—are blue for paper and bright yellow for characters. 

To change mode simple type in 
mode n [ENTER] 
where n = 0 for the large character and multi-colour mode ; n = 1 for the 
normal mode; and n = 2 for the high resolution mode. 

Thus if you type in, 
mode 0 [ENTER] 
the screen clears and you enter the ‘large’ character mode—you see this 
immediately by the larger Ready and cursor sizes on the display. In mode 0 the 
screen has 20 columns but still 25 lines, see fig. 1.6(a). Thus compared with 
mode 1 the character width is effectively doubled with up to a maximum of 20 
characters per line compared with 40 for the normal mode. Sixteen colours may 
be used for paper and pen at any one time in mode 0. 

Now type in, 

mode 2 [ENTER] 
The screen immediately clears and the display changes to mode 2, the high 
resolution mode. In the high resolution mode there are 80 columns—so it is 
possible to have up to 80 characters per line—but still as for modes 0 and 1, 25 
lines. Mode 2 can be useful in programming where line statements have more 
than 40 characters since such longer statements can still be contained in a single 
screen line. Only two colours are available at any one time in mode 2. 
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—+ Column number 


8 10 12 14 16 18 20 |(a)modeO 


20 columns by 25 lines, 
16 colours available, 
160 x 200 pixels 
‘multi-colour, large 
character size mode’ 


(b) mode 7 


40 columns by 25 lines, 
4 colours available, 
320 x 200 pixels 
‘normal mode’ 


80 columns by 25 lines, 
2 colours available, 
640 x 200 pixels, 

‘high resolution mode’ 


Fig. 1.6 The three screen modes available for the CPC464 computer for screen display. 
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1.8.9 INTRODUCTION TO COLOUR: BORDER, PAPER, PEN AND INK 
COMMANDS 


PRINT ‘ANSWER = ’; 25/4.2 


Pen (colour of 
character) 


Paper (screen 
background colour) 


idle 


Fig. 1.7 Screen areas: border, paper (main screen background) and pen (character colours). 


If you are using a colour monitor or a colour tv (in conjunction with the 
Amstrad MPI power supply and modulator unit) you can set the colour of 
screen border, the central screen background (the ‘paper’) and that of the 
character display (the ‘pen’) using simple commands. 

You have a choice of 27 colours although only a selection of these are 
available for display at a given time: 
in mode 0 : up to 16 colours are available at any one time, 
in mode | : up to 4 are available, 
in mode 2: only 2 are available. 

For the ‘green’ only GT64 Amstrad monitor, the ‘colours’ are displayed as 
various shades of green. 

When you first switch on, the display is automatically in mode | (the default 
mode) with a blue screen (paper plus border) and bright yellow characters 
(pen). 

To set the border colour use the command, 
border (ink number) [ENTER] 
where the ink number is taken from the ‘ink number colour reference chart’ of 
fig. 1.8. For example, 
border 26 [ENTER] 
will change the border colour from blue (default) to ink colour no. 26, which 
you will see from fig. 1.8 is bright white. Any one of the 27 colours can be used 
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Colour 


Colour 


Colour 


black 
blue 
bright blue 
red 
magenta 
mauve 
bright red 
purple 
bright magenta 


cyan 
sky blue 
yellow 
white 
pastel blue 
orange 
pink 
pastel magenta 
bright green 


bright cyan 

lime green 
pastel green 
pastel cyan 
bright yellow 
pastel yellow 
bright white 


ie) 
1 
2 
3 
4 
5 
6 
7 
8 
9 


green sea green 


Fig. 1.8 Ink number colour reference chart. 


for border. To see each one of these colours try entering in the following short 
program. Type in each line and at the end of each line always press [ENTER]. 
To run the program, type in 

RUN [ENTER] 

The program uses the border command at line 50 and runs consecutively 
through the available ink colours from ink number 0 to 26. 


10 REM x**k FROGRAM TO SHOW 27 COLOURS **x 

20 REM *x AVAILABLE ON THE AMSTRAD CFC 464 kx 
20 CLS 

40 FOR ink.no = 0 TQ 36 

20 HORDER ink.no 

60 PRINT “ink number of border ="gink.ne 

70 FOR delay = 1 TO 4000 : NEXT delay 

80 CLS 

90 NEXT ink.no 


Paper and pen commands 


The colour of the screen background—the paper—can be set using the paper 
command and referencing the paper/pen number table of fig. 1.9 as follows: 
paper (paper number) [ENTER] 

cls [ENTER] 

The paper command sets the screen colour as dictated by the paper number and 
mode being used (i.e. according to the reference table of fig. 1.9). The cls 
command clears the screen to this colour. For example, for mode 1 
paper 3 [ENTER] 

cls [ENTER] 

changes the screen to bright red. 


Paper/pen no. 
‘Ink-well no.’ 


Mode O 
16 colours, 
20 columns 


Mode 7 
4 colours, 
40 columns 
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Mode 2 
2 colours, 
80 columns 


O 
1 
2 
3 
4 
5 
6 
7 
8 
9 


blue 
bright yellow 


bright cyan 
bright red 


bright white 
black 


bright blue 


bright magenta 


cyan 
yellow 
pastel blue 
pink 
bright green 
pastel green 


blue 
bright yellow 


blue 
bright yellow 


blue 
bright yellow 


bright yellow 


bright cyan 
1 bright red 


bright cyan 
bright red 
blue 1 


blue 
bright yellow 


blue 
bright yellow 


blue 
bright yellow 
bright cyan 
bright red 


blue 
bright yellow 


blue 
bright yellow 


blue 
bright yellow 


blue 
bright yellow 


bright cyan blue 
bright red bright yellow 


flashing blue ~~ yellow 
flashing pink~~> sky blue 


Fig. 1.9 Paper (screen) and pen (characters) colour reference chart. Screen and character colours 
may be changed using the paper, pen and ink commands. 


The character colour may be changed using the pen command and again 
referencing the table of fig. 1.9 for the pen number colour, i.e. 
pen (pen number) [ENTER] 
so pen 2 [ENTER] 
will change, for modes 0 and 1, the character colour to bright cyan. Note paper 
and pen numbers are identical. They can be thought of as ‘ink-well’ numbers 
containing various ink colours. 


Use of ink command 


The paper and pen colours can be changed directly using the ink command 
which takes the form: 

ink (present paper/pen no. of colour) , (ink no. of new colour) [ENTER] 
Thus, for example, if we first reset by pressing CTRL, SHIFT and ESC keys 
(holding each down until ESC is pressed), then we return to the default 
position: mode 1, blue screen (border plus paper) and bright yellow characters 
(pen), i.e. paper no. = 0 (blue), pen no. = 1 (bright yellow). Now if we wish to 
change the paper to, say, bright green (ink no. = 18) and pen to orange (ink no. 
= 15) we use, 

for the paper colour change: ink 0,18 [ENTER] 

for the pen colour change: ink 1,15 [ENTER] 
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BEGINNING TO WRITE AND RUN 
PROGRAMS 


2.1 INTRODUCTION AND SUMMARY 


In this chapter we begin to write simple but complete programs on the CPC464 
computer. 

We introduce the chapter with a brief discussion of what a program is, the 
form a BASIC program takes, and some important points to be noted in 
program construction. 

We then consider some of the important BASIC commands and instructions 
that will be used to form our program statements, to execute the program, and 
to display a listing of the program contents. 

We consider also the meaning of variables and allowable identifiers that may 
be used within programs for handling data; how a program may be edited; and 
finally how a program may be saved and how a program stored on a cassette 
may be loaded and ‘run’. 


2.2 SOME INTRODUCTORY COMMENTS ON PROGRAMMING 


So far we have, with one exception, been entering direct commands into the 
computer. These commands have been directly executed by the computer with 
an immediate action such as display of results, change of colour, etc. Clearly we 
are very limited in using only direct commands to solve our problems or 
execute all but the simplest of tasks. The idea of a program is to tie our set of 
commands together in a complete self-contained package which we can ‘run’ at 
one go. 

What is a program? A program consists of a complete list of consecutive 
instructions designed to solve a particular problem or execute a given number 
of tasks. 

To provide an immediate idea of the form taken by a simple BASIC 
program, consider the following example: 
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10 CLS 

20 FRINT “Bank and public holidays 1986" 

20 PRINT "ORO ORR KKK KKK AK KKK KKK KK KKK" 

35 FRINT 

40 PRINT "Bank holiday,Wednesday 1 January" 

20 PRINT "Good Friday, Friday 28 March " 

60 FRINT “Easter Monday,21 March " 

70 FRINT "May day holiday, Monday S&S May " 

80 FRINT "Spring bank holiday, Monday 246 May" 
90 PRINT "Summer bank holiday, Monday 25 August" 
100 PRINT "Christmas day, Thursday 25 December" 
110 PRINT "Boxing day, Friday 26 December" 

120 FRINT 

130 PRINT ' eee rrr rrr a 


This simple program consists of a list of 14 instructions, each instruction 
typed in as a separate line statement. A line statement is an instruction to the 
computer to perform a specific operation. 

Each line statement must always be preceded by a line number, the value of 
the numbers dictating the order in which the program will be executed, i.e. line 
statement 10 will be executed first, followed by 20, 30, 35, 40. . . 130 in the 
above example. Any ascending order sequence can be used for the line 
numbers. We chose 10, 20. . . 130 but we could have used 1, 2, 3, 4, 5, etc. or 
15,26, 48, 115,207. . . infact any sequence in the range 1 to 65535 (65535 is the 
maximum line number for the CPC464 computer). 

In typing in a program from the keyboard, each line statement is entered into 
the computer by pressing the ENTER key. The action of ENTER is to store the 
line in the computer. No further action is taken until the program is 
commanded to RUN. This is different from using the computer in the direct 
mode, where, for example 
PRINT ‘‘Monday, Tuesday, Wednesday” [ENTER] 
would produce immediate (direct) execution and cause 
Monday, Tuesday, Wednesday 
to be displayed on the screen. 

Thus if a line is not preceded by a line number then the line statement is 
interpreted as a direct command and the computer processes the statement 
immediately. When the statement is preceded by a number then the statement 
becomes part of a program. 

Now try typing in the program. Remember to press the ENTER key at the 
end of each line. The program can be run by typing in the direct command 
RUN [ENTER] 
which causes execution of lines 10, 20, 30, 35, 40, 50. . . 130 ascending order 
and produces immediately the following display on the screen: 
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Bank and public holidays 1986 
OOOO ORKOK KOO KOK OK KOR KKK XK 


Bank holiday,Wednesday 1 January 

Good Friday, Friday 28 March 

Easter Monday, 31 March 

May day holiday, Monday 3 May 

Spring bank holiday, Monday 26 May 
Summer bank holiday, Monday 25 August 
Christmas day, Thursday 25 December 
Boxing day, Friday 26 December 


Before proceeding further, let us briefly review some basic points to be 
considered in writing a program. 

(1) Ensure that you have an exact understanding of what you want your program 
to do. Define your problem as clearly as possible. 

This is perhaps obvious, but absolutely essential as your first step for any 
serious problem solving using a computer. Note what information you are 
given—this will constitute the data input to your program (we see how to input 
information using INPUT and READ-DATA statements in the next chapter). 
Define clearly what information output you require from your program. 

(2) Develop general ideas for your program solution. Think out a suitable 
sequence for your instructions. 

Draft a logical sequence of the actions required to solve your problem. From 
these form the basis of what type of line statements (or, as we shall see in 
chapter 4, what subroutines) are needed to effect your solution. 

(3) Type in the program line statements. 

Remember that each statement must be preceded by a number and that the 
computer acts on these statements in ascending number order. It is a useful tip 
to separate consecutive lines by 10, e.g. use 10, 20, 30. . . etc., so that if you 
subsequently need to insert lines in your program you have plenty of space to 
do so. 

All line statements must, of course, be written according to the syntax (the 
‘srammar’ rules) dictated by the version of BASIC language being used on the 
CPC464. If these are not followed exactly the program will not run. In practice 
the program is continuously monitored as each line is typed in. After each line 
is entered, the computer scans it for errors and will display an error message, if 
any should be present, giving guidance as to the type of error detected. 

(4) Feed in any data (when and where necessary) to the program. 

This may be done interactively using INPUT statements or by storing data 

within the program itself using READ . . . DATA statements. 
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2.3. SOME FUNDAMENTAL BASIC COMMANDS AND STATEMENTS 


Let us now review some of the important BASIC commands and statements 
that we will be using to run and write our programs. 


RUN 

LIST 

NEW 

AUTO 

RENUM 

DELETE 

CLS 

100 SUM = 20.2 
110 PRINT N, SUM... 


120 REM * 


Fig. 2.1. Fundamental BASIC commands and statements. 


1 First some fundamental direct mode commands: 


RUN tells the computer to execute or ‘RUN’ our program; the processing 
starts, in the absence of any number typed in after RUN at the lowest number 
line statement in our program. 

Although RUN can be used within a program, its normal use is to start 
program execution by typing RUN as a direct mode command. 

RUN 40 would start execution at line statement number 40. 

LIST displays the program currently stored in the computer on the screen. 

LIST 10 — 100 will list the group of program statements starting at 10 and 
ending at 100. 

LIST 50 — will list from line 50 to the end of the program. 

LIST — 70 will list from start to line 70. 

LIST 90 will list specified line 90. 

NEW clears all programs stored in the computer—it allows us to start afresh 
or ‘a-new’. 

AUTO automatically assigns for us line numbers in steps of 10, i.e. 10, 20, 30, 
40. . . during the writing of our program; pressing the ESC (ESCAPE) key 
cancels the automatic line numbering. 
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RENUM renumbers program line statement numbers starting at 10 with 
increments of 10, i.e. line numbers would be renumbered 10, 20, 30, . . . 

RENUM 100, 10, 200 renumbers program lines from ‘old’ line number 10, to 
give it anew number 100 and increments subsequent lines by 200; the general 
form of the command is: 

RENUM (new line number) , (old line number) , (line increment) 

DELETE 50 deletes line 50. 

DELETE —100 deletes all lines up to and including line 100. 

DELETE 200- deletes all lines from 200 to end of program. 

DELETE 20 — 80 deletes range of lines, in this case lines 20 to 80 inclusive. 

CLS clears the screen; useful to include this as first line statement in a 
program to ensure screen is cleared and results can be clearly displayed starting 
from top of the screen. 


To BREAK or abort program execution: 
If you wish to force a halt to program execution: 
press ESCape key twice. 
If you just wish program execution to pause: 
press ESCape key once and then to restart, press any other key. 


2 Some fundamental program statements 


(1) Assignment statements: the LET statement 

100 LET X = 98.2 or equivalently 

100 X = 98.2 

This statement assigns to the variable X the value 98.2. The use of the keyword 
LET is optional in BASIC and therefore may be omitted. Thus the two 
assignment statements given above are identical. 

The use of the = sign in a LET statement does not have quite the same 
significance of equality as in normal algebra or arithmetic. For example, the 
program 
100 SUM = 527 
110 X = 243 
120 SUM = SUM + X 
130 PRINT SUM 
RUN (ENTER) 

770 . . result obtained 

i.e. the result yielded on running the program is SUM = 527 + 243 = 770. 
Statement 120 is nonsense in normal algebraic terms (unless X = 0). In 
computing, however, the assignment statement = sign means ‘LET left hand 
variable take the value of the right hand expression’ or more briefly ‘is given the 
value of’. Thus statement 120 is read as: let the variable SUM take the value of 
the original SUM value (i.e. 527) plus the value of X (i.e. 243). 
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(2) Output statements: the PRINT statements 

We have already used PRINT in direct mode usage. PRINT is used in an 
identical way in program statements. For example, 

120 PRINT X instructs the computer to display the value currently assigned to 
X on the screen 

140 PRINT ““SOLUTION=";X displays the words within the quotation marks, 
i.e. the string, immediately followed by the value of XY 

160 PRINT ‘prints’ a blank line and is very useful in separating results for clear 
display. 


(3) The REMark statement 

10 REM cash-flow program is used to include a REMark or comment, e.g. to 
put in program title or any helpful explanatory note; it is for our convenience 
only—it is passed over during the execution of the program. 


(4) Use of the colon : 
More than one statement may be written on a single line by separating the 
individual statements by a colon, i.e. : 

For example, the program 


10 X = 242 
20 Y = 251 
30 Z = 363 


40 PRINTX+Y+2Z 

could be condensed to 

10 X = 242: Y = 251: Z = 363 

20 PRINT X+Y+2Z 

or even into a single line, 

10 X = 242: Y = 251: Z = 363: PRINT X + Y+2Z 


(5) Use of CLS as a program statement: 
10 CLS will clear the display on the screen (just as the direct command would) 
and is very useful in a program to ensure clear presentation of results. 


2.4 EXAMPLE OF WRITING AND RUNNING SOME SIMPLE 
PROGRAMS 


(1) Try writing a program to display the names and phone numbers of your 
friends. 
Here is the form the program could take: 


10 REM XxX Friends Fhone Nos. Xxx 
15 CLs 

20 FRINT "Jane" TAR(1S)"44 0138 98" 
20 FRINT "“Harry"TABR(IS)"78 54 87469" 
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40 FRINT "Mary" TAB(15)"887 98 2385" 

SOQ PRINT "Fred" TAB(1S) "101 77390" 

60 FRINT "The Bell" TABR(1IS) "33 434232 78" 
70 PRINT "Rev. Greene"TAR(15) "2740 1092" 


Remember each line statement has its own line number and must always be 
‘entered’ by pressing the ENTER key. Try using AUTO for automatic line 
numbering. 

To execute the program type in RUN followed by pressing the ENTER key, 
i.e. 

RUN [ENTER] 
You will, of course, obtain the following display 


Jane 44 0128 98 
Harry 78 34 8769 
Mary 887 98 23285 
Fred 101 77290 
The Bell 23 42422 78 
Rev. Greene 2740 10923 


The program is easy to understand: 
Line statement 10 contains REM (REMark), aremark statement to ‘remind’ us 
what our program does. 
Statement 15 uses CLS to clear the screen. 
Statements 20 to 70 instruct the computer to ‘print’ the names and phone 
numbers; we have also used the tab instruction to line up the start of the 
numbers, i.e. tab(15) causes the numbers to be displayed commencing at 
column 15. 

If you now type in, 
LIST [ENTER] 
you will obtain a re-display of the program listing. 

If you follow this by, 
NEW [ENTER] 
you will clear the program from the computer memory, although not the 
display on the screen. Check this by typing in, 
CLS [ENTER] 
LIST [ENTER] 
The CLS command clears the screen. The LIST command lists the program 
currently stored in the computer. Since no ‘list’ appears the program was in fact 
cleared by the NEW command. 

Note the BASIC keywords run, list, print, cls, etc. can be entered in either 
lower or upper case letters. The computer makes no distinction. Your program 
listing, however, will always display keywords as upper case characters. 


Beginning To Write and Run Programs 25 


(2) Try displaying your initials in the three screen modes: mode 0 (large 
character), mode 1 (normal), mode 2 (high-resolution). 

Here is a program which displays each mode presentation in turn. Again the 
program is virtually self-explanatory, except for lines 40, 70 and 100. These are 
all identical and are an example of the use of a FOR loop (see chapter 4). They 
are included to produce a delay of 2 to 3 seconds so you can see the display for 
each mode. Note also the use of the colon, which enables us to include more 
than one instruction in a single line statement. 


19 REM Initials in different modes 

20 MODE © sFRINT 

20 PRINT "R G M"sPRINT “XXKKKK" SPRINT 
40 FOR n=1 TO 2000:NEXT n:REM delay 
20 MODE i 

60 FRINT "R G M"SFPRINT "XXXKKK" SPRINT 
70 FOR n=1 TO 2000:NEXT n:REM delay 
80 MODE 2 

90 FRINT "R GM "SPRINT" XXXKKK" s PRINT 
100 FOR n=1 TO 2000:NEXT n:REM delay 
110 MODE i 


(3) Here is an example of a simple program to calculate the area of a triangle: 


10 REM Simple area calculation 

29 CLS 

20 PRINT "area of triangle":FRINT 
40 FRINT "A =(b x Hh) /23" 

30 b=45.6 :h=33.8 

60 PRINT "A ="sbxkxh/2 

70 PRINT 

80 FRINT "for b="sb,"h="sh 


Again the program should be reasonably easy to understand. Line 50 assigns b 
the value 45.6 and the second statement (separated by the colon) assigns / the 
value 33.8. Line 60 displays the result for area, A. 

On running the program, you will obtain the following display: 


area of triangle 
A =(b x h)/23 
A = 770.64 


for b= 45.6 h= 33.8 
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~ b > 


Fig 2.2. Area of triangle, A = “2b X h. 


2.5 VARIABLES AND IDENTIFIERS 


When we assign values to quantities to be used in our programs we need a ‘box’ 
or storage location to hold these values. In computer terminology we talk about 
a variable (the word used for the quantities we wish to process etc. in our 
programs) and an identifier (the name we use to ‘identify’ or label our ‘variable’ 
box). 

The term variable refers to any element or quantity in a program whose value 
may (or may not) be changed in the execution of the program. Variables are 
used to provide storage locations in the computer to hold the data the variables 
represent. 

Each variable we use in a program must be given a unique identifier. The 
variable identifier may be thought as the name of the ‘container’ used to store 
the data value currently assigned to the variable. Once a value is assigned to a 
given variable, the value remains fixed at this value and stored in its ‘container’, 
but may be changed when or if any subsequent program statement assigns the 
variable a new value. 

In the version of BASIC used on the CPC464 computer there are essentially 
three main classes of variables. 


1. Real or numeric variables 


These are used to store numbers (with or without decimals) in floating point 
form within the computer to 8 to 9 significant figure accuracy within the range 
for CPC464 computer : — 107** to + 10°**. 

Identifiers for real variables must always begin with an alphabetic letter and 
can be followed by any sequence of letters or number digits. For the CPC464 a 
full stop symbol can be included. The total character length for an indentifier 
must not exceed 40. 

Obviously no BASIC keywords, e.g. print, list, cls, etc., can be used as 
variable identifiers. All keywords, system commands, etc. are regarded as 
reserved words and must never be used except in their correct context. Note 
also that spaces, punctuation marks (other than the full stop) and arithmetic 
symbols cannot be used in identifiers. For example, 
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a maxvalue 2237 GREATEST 
area min. point — interest least 
x11 last. value POPULAR no. of. terms 


are all valid identifiers for real (number) variables; the following, however, are 
not: 


max value . . . invalid, spaces cannot be used in identifiers 
xty . . . invalid, arithmetic symbols cannot be used 
input .. . invalid, BASIC reserved word 

first. value? ... invalid, ? cannot be used 


2 Integer variables 

These are used to store whole number values, i.e. integers. The range for the 
CPC464 computer is —32768 to +32767. Integer variable values occupy less 
space in the computer memory and so can be used in preference to real 
variables in programs that do not require decimal information. 

Integer variables are distinguished from real variables by including the % 
symbol as the last character of the identifier. Integer variable identifiers follow 
exactly the same syntax rules as for real variables but must always end with %, 
e.g. 
index% represents an integer variable identifier 
index represents a real (floating-point) variable identifier 


3 String variables (non-numeric variables) 


These, as their name implies, are used to store ‘strings’ of characters, i.e. 
letters, numbers, symbols, etc. String variable identifiers are distinguished 
from numeric variables by always ending in the $ (dollar) symbol. It is the $ 
symbol that ‘tells’ the computer that it is handling string variable data. Apart 
from the $ symbol, string variable identifiers are formed using the same general 
rules: they must start with a letter, may then be followed by any sequence of 
letters, numbers or full stops (up to a maximum including the $ symbol of 40), 


e.g. 
name$ nameandaddress$ 
x11$ SUBJECT3$ 


are valid string variable identifiers. 

We use assignment statements to assign values to string variables in the same 
way as for numeric variables but we must enclose the actual value being 
assigned (the string) within double quotation marks, as shown for example in 
the following short program: 


IO REM ** String variable example 1 xx 
29 CLS 

30 nameg="Richard" 

40 blank#é=" " 
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YO address$="4260 Brasilia Cresent, Clifton” 
60 FRINT names 

70 FRINT address 

BO FRINT 

SO FRINT namets;blank$; address 


On running the program, we obtain the display 


Richard 
4260 Brasilia Cresent, Clifton 


Richard 4260 Brasilia Cresent, CliftonRichard 


String variables can be combined to form larger strings using the + symbol. 
For example, in the following program at line 60: 
total = name$ + blank$ + address$ 
assigns the string variable total$ the value: 
“Richard 4260 Brasilia Cresent, Clifton’’ 
Try running the program to verify this. 


10 REM *x String variable example 2 xx 

29 CLS 

30 names="Ri chard" 

40 blank$=" " 

30 address$="4260 Brasilia Cresent, Clifton" 
60 total $=namet+bl ank$+address$ 

70 FRINT total 


Note for all variable classes: upper and lower case usage 


Identifiers written in either lower or upper case letters are treated as identical in 
BASIC. Thus, for example, the following pairs of identifiers are treated by the 
computer as the same: 

X,x;N%,n% ; name$ , NAME$ 

Do not fall into the trap of thinking they can be used for two different 
variables—they are indistinguishable as far as program execution is concerned. 

Identifiers are used to identify not only variables but, as we shall soon see, for 
arrays, user-defined functions, loops, file-names, etc. 

One final point—always try to choose meaningful identifiers for the variables 
used in your programs. This adds extra clarity to the program listing. It helps in 
understanding what your program is about, is especially useful in tracing errors 
and for future reference, and invaluable for others who may use your 
programs. 
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2.6 USING A PRINTER TO OBTAIN HARD COPY 


If you are lucky enough to have a printer—the CPC464 may be used directly 
with a parallel printer with Centronics interface, the Epson MX, RX and FX 
series of printers being ideal—you can easily obtain a hardcopy print-out of 
your programs listings and also direct your program output to the printer as 
well as or instead of the monitor screen. 

The listing command is simply, 
LIST #8 [ENTER] 
The # symbol (uppercase symbol on key 3) denotes the ‘channel’ and 8 the 
channel number used by the computer to transmit the program listing data to 
the printer. 

The same channel is also used to output the PRINT statement data from 
within the program to the printer. 
PRINT statements for printer output take the form 
100 PRINT #8,’’Results follow:” 
110 PRINT #8, 56.2*39.7 
i.e. +8, is added to the PRINT instruction to direct the output to the printer. 


2.7 EDITING PROGRAMS: THE EDIT COMMAND AND USE OF COPY 


The CPC464 has excellent editing facilities for correcting mistakes and making 
changes in a program listing. 

The mistakes in any given line statement can always be rectified by typing the 
line in again with, of course, the errors removed. On pressing ENTER the new 
line automatically replaces the original. This method, however, is rather 
laborious especially as the CPC464 provides two very easy-to-use methods. 


Use of the EDIT command 


Suppose we wish make a correction or modification to, say, line 100 in a 
program. Type in the command, 

EDIT 100 [ENTER] 

Line 100 will be then displayed on the screen with the cursor at the beginning of 
the line. The cursor is then positioned using the forward (or backward) cursor 
arrow keys to where required in the line and deletions made using either CLR or 
DEL keys. If text is to be inserted space is made automatically as you key in by 
the portion of the line to the right of the cursor scrolling to the right. After 
completing the changes to the line, enter the line into the program by pressing 
the ENTER key. If no errors are detected the line replaces the old line in the 
program list. If errors are still present these will be detected by the computer 
and it is not possible to move off the line until these are removed. 
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Fig. 2.3. Keys involved in EDITing programs: cursor position, COPY, CLEAR and DELete keys. 


Use of COPY cursor 


First list your program or, if the program exceeds 20 or so lines, list the sections 
you wish to edit. Hold down the SHIFT key and press the upward arrow ( ¢ ) 
cursor key until the ‘copy’ cursor is positioned at the beginning of the line to be 
edited. Note that the ‘main’ cursor remains in position at the end of the listing, 
so we now have two cursors on the screen. 

Now press the green COPY key until the copy cursor is at the position where 
you wish to make a change. Note as you press the COPY key the main cursor 
also moves, copying the line as it goes. Make your changes and note that these 
are included in the main line but not at the copy cursor position, which remains 
stationary. After completing your changes move on again by pressing COPY 
and finally press ENTER. The ‘main’ line then replaces the original line in the 
program, provided the latter contains no errors. As with the EDIT command 
process you cannot move the COPY cursor off the line until all errors in the 
main line are removed. If no errors are detected the ‘main’ line enters the 
program and the copy cursor disappears. 
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2.8 SAVEing AND LOADing PROGRAMS 


1 The SAVE command (cassette tape) 


To save the program currently stored in the computer simply use the command, 
SAVE “program name” [ENTER] 

Note that the program name is the name you give to the program and it will be 
stored and accessed under this name. The name must be included within the 
quotation marks and can be any combination of characters including spaces up 
to 16. Once the SAVE command is entered the computer responds with the 
following message display on the screen, 

Press REC and PLAY then any key 

Press the RECord and PLAY buttons of the cassette firmly down until both are 
locked in position. As soon as you press any other key, the cassette tape starts 
and copying commences as indicated by a further message on the screen: 
Saving program name block 1 

When copying is complete the cassette tape stops. Ready is displayed and the 
cursor returns to the screen. Finally press the STOP/EJECT button. 


2 The LOAD command 


To load a program stored on cassette tape, place the cassette containing the 
program in the cassette unit of the computer, rewind to the beginning of the 
tape or, if you know the ‘count’ number on the cassette revolution counter 
where the program starts, rewind to this, and then enter the command: 
LOAD ‘program name” [ENTER] 

The computer immediately responds with the screen message: 

Press PLAY then any key 

As soon as the PLAY button is pressed and locked down and then any other key 
pressed the cassette tape will start moving and a search for the program 
initiated. In this search the computer will display all other program titles it finds 
before reaching and then loading the requested one. Thus messages of the form 
Found Statistics 1 

Found Graphics Demo 

might be displayed, but as soon as the required program is reached, we are 
notified so by the message 

Loading program name block 1 

and when the loading is fully complete, Ready is displayed and the cursor 
returns to the screen. 

To check the fact that the program has been copied from tape to computer, 
type in the LIST command. The program can, of course, be run once we know it 
has been ‘loaded’ by the usual RUN command. 

To load and automatically run a program stored on tape you can use the 
single command: 
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RUN “program name”’ [ENTER] 

The computer responds with (as before): 

Press PLAY then any key 

and the loading processes commence with the search, the load and then an 
automatic RUN without the need of any further commands. 


Exercise problems 2 


(1) Write programs to display the following: 

(a) names and dates of birth of family and friends 
(b) a list of common items and their prices 

(c) a football league table. 


(2) Write a program to calculate the volume of 

(a) a rectangular block (cuboid) (see fig. 2.(a)) 
v=bxX1xXd, for b =2.27,1= 5.74, d = 1.86 

(b) a cylinder (see fig. 2.4(b)) 

v=arh, forr = 8.63 ,h = 12.4 and where x = 3.142 (or use PI, which holds an 
accurate value for z in the CPC464). 


(a) 


(b) 
h 
Fig. 2.4 (a) Cuboid: v = b x 1 x d; (b) Cylinder: v = ah. 


(3) Write a program which displays the result of the following calculations: 
(a) 3.4 X 5.67 — 6.21 x 4.98 

(b) 5.377 + 4.467 

(c) pv’ , where p = 525, v = 72,c = 1.4 
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(4) Write a program to find the average value of the following weights: 
20.7 kg, 14.5 kg, 12.9 kg, 13.6 kg 


(5) Write a program to calculate the compound interest on 

(a) £1000 invested for 5 years at 11% 

(b) £25 invested for 32 years at 7.5% 

The compound interest formula is 

I = P(1+R/100)* — P 

where / = interest, P = sum invested, R=rate %, N=number of years 
invested. 


3 


INTERACTING WITH YOUR PROGRAM 


3.1 INTRODUCTION AND SUMMARY 


So far the programs we have considered have contained all the necessary 
information within the actual program with no need to reference any outside 
source to complete their relatively simple tasks. To enable us to interact with a 
program during its execution and, for example, be able to enter values from the 
keyboard, BASIC provides the INPUT statement. We consider the application 
of INPUT statements in this chapter. 

To enable us to store a number of values such as a list of data, BASIC 
provides the READ ... DATA statements. The use of these statements is 
normally much more convenient than writing individual assignment statements 
for each variable especially for a long list of items. READ... DATA statements 
are also considered in this chapter. 

Frequently we may wish to STOP program execution and make, for 
example, a check before allowing it to continue. The use of STOP statements 
and the CONTinue command is considered. In using READ ... DATA 
statements we may also wish to go back to the beginning of the DATA list at 
some point in the sequence of program execution; to do this BASIC provides 
the RESTORE statement, the use of which we finally consider. 


3.2. INPUT STATEMENTS 


INPUT statements are used to input values to the computer directly from the 
keyboard. They have the basic format: 
20 INPUT (variable identifier) 
20 INPUT “’.. .string message. . .”” ; (variable identifier) 

The use and action of INPUT statements is illustrated in the following 
program examples. 


(1) This program finds the square and cube of any number you input from the 
keyboard. 
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10 REM k*Square and cube of any no. n input from 
keyboard x 

20 INFUT n 

30 FRINT nkn,n3 


When we execute the program by typing 
RUN [ENTER] 
the computer steps over the REMark statement 10 and executes 20 the input 
statement. At this point a ? is displayed and the cursor reappears on the screen 
indicating that it is waiting for us to enter in the value we wish to assign to n. 
Enter a number, e.g. 34.8: 
? @ 34.8 [ENTER] 

t 
cursor 
Program execution continues immediately and line 30 computes and displays 
the results for 34.8° and 34.8°: 
1211.04 and 42144.192. 

The following version makes the program much more informative to the user 
by including a string message in the input statement: 


19 REM X To calculate square and cube of a 
number xX 

20 INFUT "Enter number, n="sn 

SO FRINT nk&nyn“s 


On running the program, line 20 now instructs the computer to display the 
words within the quotation marks (the string message) followed by the cursor, 
i.e. 

Enter number, n = ? @ 

Now enter in a number, followed as always by pressing the ENTER key. The 
results for n and n° will be displayed immediately on the next line of the 
screen. 


(2) This program acts as a conversion calculator for converting the weight in 
kilograms input from the keyboard to pounds. 


10 REM xXx To convert kilas toa lbs Xxx 
20 INFUT “Enter weight in kilas";kiloas 
20 PRINT kiloss "kg ="492. 2046kkilos; "lbs" 


On running the program: 

RUN [ENTER] 

Enter weight in kilos? 8 [ENTER] ... (8 entered) 
8 kilos = 17.6368 Ibs ... (result displayed) 
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(3) We can input more than one value by either using a series of input 
statements, e.g. 


10 INFUT "ENTER VALUE FOR A";A 
20 INFUT "ENTER VALUE FOR B":; 
SO INFUT “ENTER VALUE FOR C"'sC 
40 FRINT "Ats+C =" 3 AtH+C 


or more concisely using a single input line statement: 


10 INFUT "VALUES FOR 4,8,C="3A,8,C 
20 FRINT "A+tB+C ="FA+H+C 


Onrunning the first version, the program execution pauses at each of the line 
statements, 10, 20 and 30 awaiting for us to enter values for A, B, C 
respectively, i.e. 


RUN [ENTER] 


ENTER VALUE FOR A? 47 [ENTER] . . (47 entered for A) 
ENTER VALUE FOR B? 42 [ENTER] . . .(42 entered for B) 
ENTER VALUE FOR C? 18 [ENTER] .. .(18 entered for C) 
A+B+C= 107 . . .result displayed 


On running the single input statement version, the computer pauses at line 10 
and we enter the values for A, B, C in order and separating each value by a 
comma, i.e. 

RUN [ENTER] 

VALUES FOR A, B, C, = ? 47, 42, 18 [ENTER] 

A+B+C= 107 


(4) To find the volume of (for example) a cylinder, using INPUT statements to 
input the dimensions. 


10 REM X¥** Volume of cylinder xxx 
20 CLS 

20 INFUT “Enter radius, r="gir 

40 INFUT "Enter height, h="sh 

20 FRINT "Volume ="sFI¥r"2kh 

60 FRINT “for r="ae, "h="gh 


RUN [ENTER] 

Enter radius, r = ? 2.4 [ENTER] 

Enter height, h = ? 6.8 [ENTER] 

Volume = 123.049901 

Forr=2.4,h = 6.8 . . display of results obtained 
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3.3 READ...DATA STATEMENTS 


If we wish to use data from within the program rather than input values from 
the keyboard, which for a long list may tend to be very tedious, we can use 
READ ... DATA statements. For example, suppose we wish to incorporate a 
list of prices of several items in a program, we can utilise READ... DATA 
statements as follows: 


100 READ itemname$, number, cost,ref.not 
110 DATA desk, = 32,68. 75, GH473-O1 


The values of the variables itemname$, number, cost, ref.no$ in the READ 
statement 100 are assigned the values in the exact corresponding order as given 
in the DATA statement of 110. So after execution of line 100, data would have 
been taken from the DATA statement and assigned as follows: 

itemname$ = “‘desk’’ , number = 32, cost = 68.75 

ref.no$ = “GH473 — 01’. [Note values for string variables need not be 
enclosed within quotation marks in a DATA statement. ] 

Each READ statement in a program consists of READ followed by a list of 
variable identifiers, each identifier being separated from the next by a comma. 

Each DATA statement is a list of values and/or expressions, each value 
separated being separated by a comma. DATA statements may be put 
anywhere you wish in a program—normally at the beginning or at the end if this 
is convenient—since the computer ignores any DATA statements until it meets 
a READ statement. 

The first time the computer in executing the program meets a READ 
statement it takes for the first variable value the first data value from the DATA 
list, for the second variable the second data value, and so on, working its way 
through the whole of the DATA statement lists. 

If the number of items in the READ and DATA statements do not match, e.g. 
if there are more variables in the READ statements than values in the DATA 
statements, then the computer will display an error message immediately it 
tries to READ a value which is not there. 


Program examples for READ-DATA statements 


(1) This simple program illustrates the basic function of READ ... DATA 
statements 


5 CLS 
10 READ A,B,C 

20 PRINT "FIRST TERM A="sA 
30 PRINT "SECOND TERM B="sB 
40 PRINT "THIRD TERM C="sC 
SQ DATA 111,222, 333 
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RUN [ENTER] 

FIRST TERM A = 111 

SECOND TERM B = 222 

THIRD TERM C = 333 . . display obtained on screen, showing that A is 
assigned the first value in the DATA statement list, B the second and C the 
third. 


(2) This program works out the average value of a number of items listed in the 
DATA statements. 


10 REMKXX To find average of list of values kxX 
“Oo CLS 

20 READ a,bacads@afag 

40 READ hhi,sjakal,am,n 

a0 sum=atb+c+d+et+f+g 

60 sum=sumth+i+jtk+1l+mt+n 

790 FRINT "average ="; 

BO FPRINT USING "##. ##"s sum/14 

90 DATA 22,87,90,65,43,6,82 

LOO DATA 35,87,52, 68,8, 29,80 


RUN [ENTER] 


average = 55.36 . . .display of results obtained 

(3) This program uses READ .. . DATA statements to assign data to a list of 
items. It then works out sub-total and total cost of all items and displays the list 
and results on the screen. 


16 REM «xX List cost program xx 

29 CLS 

20 PRINT "“ITEM's TABCI2) "NUMBER"; 

40 PRINT TAR(20) "UNIT COST"; TAR(ZO) "SUB-TOTAL" 
a0 PRINT 

60 READ itemit,nol,unitcastil 

70 costl=nolkxunitcostl 

80 FRINT item1i$; TAB(IZ) nol; 

90 PRINT TAR(C20) unitcostls TAB(ZO0)costl 
1900 READ item2$,no2,unitcast? 

110 cost2=noSkunitcost2 

120 PRINT item2%$; TABRCIS} nods; 

130 FRINT TAB(2O0) unitcost2; TAR(20) cost? 
140 READ item3$,no03,unitcostS3 

150 cost3=noZkunitcosts 

160 FRINT item2%; TABR(1IS) nods 


Interacting With Your Program 39 


170 FRINT TARB(2O)unitcost33 TABCZ0) costs 
180 sum=costit+tcost2+costs 

i90 FRINT 

200 FRINT “total sum = £"ssum 

210 DATA desk units, 126,352.19 

220 DATA tables, 3550, 29.64 

250 DATA chairs, 1216,9.95 


On running the program you will obtain the following display on the screen: 


ITEM NUMBER UNIT COST SUB-TOTAL 
desk units 126 wow LF 6575.94 
tables aa 29.66 2181s 
chairs 1216 9.95 12099.2 


total sum = # 40498.14 


3.4 THE USE OF THE STOP STATEMENT AND THE CONTinue 
COMMAND 


Frequently we may wish to stop program execution at a given line and, for 
example, make a check on the results so far obtained before allowing the 
execution to continue. This is especially useful in checking intermediate results 
in a lengthy program. 

For stopping execution of a program at a given line, BASIC provides the 
STOP statement: 
100 STOP 
This statement stops execution of the program at line 100 and will return the 
computer to the command mode 

The CONTinue command allows a program which has been interrupted by a 
STOP statement (or by a BREAK action ) to be resumed at the next line after 
the STOP statement. For example, consider the 


10 REM *kxk STOF and CONTinue demo xxx 
20 CLS 

20 READ A,H 

40 FRINT (A~-33) *k5/9,B*4.2 

530 STOF 

60 READ C,D,E 

70 PRINT (C+D) kKA-E 


*To ‘BREAK’ program execution, press ESCape key twice. This action will return cursor to 
screen. 
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80 STOF 

90 FRINT"excutian CONTinues" 
100 x= C-D+B/e 

500 DATA 70,450,12.2,67,90,25. 
S10 DATA 67.9,90.87,32, 76,389.08 


RUN [ENTER] 
21.1111111 1890 
Break in 50 
CONT [ENTER] 
5461 
Break in 80 

On running the program, execution starts from the beginning, READs in 
DATA for A, B at line 30, outputs results at line 40 and then is stopped by the 
STOP statement at line 50. Program execution can be restarted from line 60 by 
typing in the direct mode command CONT. A further READ is made at line 60, 
results output at line 70 and then execution stopped at line 80 by a second STOP 
statement. 


3.5 USE OF THE RESTORE STATEMENT WITH READ... DATA 


In the ‘normal’ use of READ ... DATA statements the computer works from 
the beginning of the first DATA statement (the one with the lowest line 
number) when it meets the first READ statement and then subsequently works 
through all the DATA lists until it reaches the end. 

This sequence can be ‘restored’ by using RESTORE statements which have 
the form: 

100 RESTORE 
100 RESTORE (line number) 

The first RESTORE statement (with no line number after RESTORE) forces 
any subsequent READ statement to start reading data from the first value of the 
first DATA statement (lowest number) in the program. When a specified line 
number is given after RESTORE, then any subsequent READ statement takes 
its data from the first DATA statement at or immediately following the specified 
line number in the RESTORE statement. 

For example, let us work through the following program: 


10 REM **kk RESTORE demo xxx 
20 CLS 

20 READ 4,8,C 

40 FRINT 4,8,C 

50 RESTORE 

60 READ X,Y,Z 
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70 FRINT X,Y,Z 
80 READ A,B,C 
90 FRINT @€,B.C 
100 DATA 1,2,3,4,5,6 


RUN [ENTER] 


1 2 3 . . display of A, B, C at line 40) 
1 2 3 . . (display of X, Y, Z at line 70) 
4 5 6 . . (display of A, B, C at line 90) 


At line 30 the READ statement assigns A = 1, B = 2 and C = 3, i.e. the first 
three values in the DATA list of line 100. Thus at line 40 we obtain the display: 
1 2 3 

Line 50, the RESTORE statement, returns us to the beginning of the DATA 
list. Thus at line 60, the READ statement assigns X = 1, Y = 2, Z = 3 and line 70 
produces the display (again): 

1 2 

At line 80, however, the READ statement ‘pointer’ is at the fourth item in the 
DATA list and hence this READ statement assigns A = 4, B = 5, C = 6 and this 
is confirmed by the action of display statement 90: 

4 5 6 

Finally, consider a second example: 


10 REM xxkk SECOND RESTORE demo xxx 
20 CLS 

30 READ A,B,C 

40 PRINT AsBsC, (A+B+C) /3 

50 RESTORE 2000 

60 READ A,B,C,D 

70 PRINT AsBsC3D, (A+B+C+D) /4 

BO RESTORE 1000 


90 READ A,B,C,D,E.F.G 
100 READ H, T,daKylaM 
110 FRINT A:B:CrDrEsFsG3 
120 FRINT H:IsJskslem 
10600 DATA 1,2,5744,5.46 
2000 DATA 10,20, 230,46 


ZO0O DATA 100,200, 200 


RUN [ENTER] 

1 2 3 2 

10 20 30 40 25 

12 3 4 5 6 10 20 30 40 100 200 300 

is the display obtained. 

At line 50 the RESTORE statement ‘restores’ the read pointer to the first value 
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in DATA statement 2000. Thus the READ statement at line 60 assigns A = 10, 
B = 20, C = 30, D = 40. In the absence of 50 RESTORE 2000,DATA would 
have been taken from the next value in line 1000, 1.e. A = 4, B=5,C = 6and 
then from line 2000, D = 10. 

At line 80, the RESTORE 1000 statement returns the read pointer to the 
beginning of DATA list 1000, so the READ statement 100 starts reading in its 
data from the first value in 1000 and continuing with 2000 to work right through 
the complete DATA statements. 


Exercise problems 3 


(1) Write a program using READ DATA statements to find the average value of 
the following 20 numbers: 
52, 14, 37, 67, 73, 11, 75, 89, 19, 24, 61, 49, 12, 33, 47, 55, 16, 71, 81, 92. 


(2)The following program using the INPUT statement could also be used to find 
averages: 

10 REM ** TO FIND AVERAGE OF VALUES INPUT FROM KEYBOARD** 
20 INPUT “ENTER VALUE”; VALUE 

30 COUNT = COUNT + 1 

40 SUM = SUM + VALUE 

50 PRINT “AVERAGE SO FAR ="; SUM/COUNT 

60 GOTO 20 

Try running the program. 

This program has a GOTO statement at line 60 and in fact will never stop! 
This statement ‘jumps’ execution back to 20 so the whole sequence 20, 30, 40, 
50 is repeated followed again by the GOTO 20 at line 60 which returns 
execution to 20, forming a closed loop; bad programming practice! When you 
finished entering values you can BREAK the loop and return to the command 
mode by pressing the ESCape key twice. 

BASIC has better ways of exiting loops: to be considered in the next chapter. 


(3) Using INPUT statements write programs to convert 
(a) feet and inches to metres (1 inch = 2.54 cm.) 
(b) pounds and ounces to kilograms (1lb = 0.4536 kg). 


4 


DECISION MAKING, REPETITION, 
JUMPING AND SUBROUTINES 


4.1 INTRODUCTION AND SUMMARY 


So far, in virtually all the programs we have considered, the computer executes 
the individual line statements in exact ascending sequence, e.g. line statement 
10 before 20, 20 before 30, and so on. 

We now consider the BASIC statements available for the important tasks of 
(1) making decisions as to alternative courses of action and ‘jumping’ within a 
program 
(2) repeating a section of program statements a controlled number of times 
(3) repeating a group of statements while some condition is satisfied 
(4) selection of one of several different courses of action 
(5) using subroutines 

We commence the chapter by explaining the use of IF statements and test 
expressions used in making decisions. We then consider the FOR and WHILE 
constructs used for repetition and the use of Boolean logic expression for 
forming more comprehensive test condition expressions. Finally we consider 
the use of GOTO and GOSUB. In all cases the application of these statements is 
illustrated in practical program examples. 


4.2. IF STATEMENTS FOR CHOICE OF ACTION 


The choice of one or two different courses of action in a program is made using 
statements of the form: 
100 IF (test expression) THEN (statement(s) to be executed) 
100 IF (test expression) THEN (statement line number) 
100 IF (test expression) THEN (statement(s)) ELSE (statement(s)) 
100 IF (test expression) THEN (line no. N1) ELSE (line no. N2) 

The IF... THEN andIF...THEN...ELSE statements are the fundamental 
‘decision-making’ statements in BASIC. Flowcharts illustrating their action 
are shown in fig. 4.1. IF the test expression is satisfied, i.e. yields a TRUE 
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Preceding part of program 


IF 
(test expression) 


FALSE 
IF (test expression) 


THEN THEN line no, 
TRUE 
Y (test expression 
satisfied) 
120.... 
y 130.... 
—£ 
Y LINE NO. .....e eee 
(a) IF (test expression) THEN (b) IF (test expression) THEN line no. 


statement(s) 


IF 
(test expression) 
THEN 


FALSE 


ELSE 
statement(s) 2 

executed if test 
expression NOT 
satisfied 


statement(s) 1 
executed if test 
expression is satisifed 


(c) IF (test expression) THEN (statement(s) 1) ELSE 
(statement(s)2) 


Fig. 4.1. Flowchart illustration of IF statement actions. 


value, THEN the statement(s) following THEN are executed; if a line number 
follows THEN, execution is transferred to this line and any interleaving lines 
are skipped over. The action of the IF... THEN ... ELSE statement is very 
similar. IF the test expression is satisfied THEN the statement(s) following 
THEN are executed or program execution is transferred to line number ‘NI’ ifa 
line number follows THEN. IF the test expression is not satisfied, i.e. yields a 
FALSE value, THEN the statement(s) following ELSE are executed or 
program execution is transferred to line number ‘N2’. 

The test expressions used in making the decisions are formed using the 
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comparison operators listed in table 4.1 below. Comparison expressions can 
also be used in conjunction with the Boolean operators (AND, OR, NOT—see 
section 4.5) for forming test expressions. 


Table 4.1 Table of comparison operators, symbols and meaning 


Symbol Meaning 


- equality; e.g. the expression A = B checks whether the value of the left-hand 
term A is equal to the value of the right-hand term B 

< inequality; e.g. A<>B checks whether A is unequal to B 
<= less than or equal to; e.g. A<=B checks whether A is less than or equal to B 
>= greater than or equal to; e.g. A>=B checks whether A is greater than or equal to 
B 
less than; e.g. A<B checks whether A is less than B 
greater than; e.g. A>B checks whether A is greater than B 


VA 


Comparison expressions such as A>B, A<B, X<>Y ... etc. always 
provide one of two results, either TRUE or FALSE. In CPC464 BASIC a 
comparison expression which is satisfied and therefore yields a TRUE result is 
assigned the numerical value —1; an expression yielding a FALSE result is 
assigned the value of 0. 


IF statements: examples of use 


(1) This example shows the IF statements being used with a string variable in 
the test expression. Try running the program. IF you enter red or green or 
amber the appropriate IF statement will be actioned. 


1O REM xx IF...THEN demo 1 kxxk 

20 CLS 

30 INFUT "Enter traffic light colour";light$ 
40 IF light#="red" THEN FRINT "STOF" 

SO IF light$="green" THEN FRINT "GO" 

60 IF light#="amber" THEN FRINT "CAREFUL !" 


(2) A simple example of the IF... THEN... ELSE statement. 


10 REM *xxX IF...THEN...ELSE demo «xx 

29 CLS 

30 INFUT "Enter your temperature"; temp 

40 IF temp+102 THEN SO ELSE 70 

oO FRINT "send far doctor" 

60 END 

70 FRINT “take 2 aspirins and stay in bed" 


(3) A more comprehensive and useful example which you can adapt to write 
your own program for ‘finding addresses’. 
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Note the use of END. This effectively ‘ends’ execution of the program after 
carrying out its required task, i.e. finding the address from the name you input 
from the keyboard. If you do not include END, then execution will proceed at 
the next line and continue until it meets an END statement or the end of the 
program. 


10 REMK*XxX IF...THEN demo 2 Xxx 

15 CLS 

20 FRINT "finding Addresses":FRINT 

20 nilg="Fred":n2¢="Joe" 

40 n3$="Alice":n4¢="Rose" 

20 FRINT "Addresses are availabe for:"sFRINT 
60 FRINT n1%,n2%,n2%,n4% 

70 FRINT"Ta find address enter Christian name" 
80 INFUT namet 

90 PRINT 

100 IF name$="Fred" THEN 1000 

200 IF namet="Joe" THEN 2000 

200 IF name$="Alice" THEN 3006 

400 IF namet="Rose" THEN 4000 

300 FRINT "name not listed" 

o1iO END 

1000 FRINT "Fred Smith" 

1010 FRINT "16 Orange Avenue" 

1020 FRINT "Chelmsford, Essex" 

1030 END 

2000 FRINT "Joe White" 

2010 PRINT "Christmas Hotel, Malta, MZ 29" 
2020 END 

3000 FRINT "Alice Springs" 

3010 FRINT "Shaw-Hoo House" 

S020 FRINT "West Road, Hastings" 

2030 END 

4000 FRINT “Rose Browne" 

4010 FRINT " Block 20, Hawke’s Bay, Kent" 
4020 END 


4.3. REPETITION A CONTROLLED NUMBER OF TIMES: THE FOR 
LOOP 


FOR type statements, or really FOR loops, provide the means for repeating the 
actions performed by a group of line statements a controlled number of times. 
The FOR loop takes the following form: 
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100 FOR (variable identifier) = (start value) TO (end value) 
110 
120 
130 
170 NEXT (variable identifier) 

On entering the FOR loop the variable identifier (control variable for the 
loop) is set to the start value; the group of statements terminated by NEXT 
(variable identifier) are executed with this value and when completed the value 
is incremented by 1 and the process repeated continuously until the control 
variable value reaches the end value. By including STEP in the first line, i.e. 
100 FOR (identifier) = (start val.) TO (end val.) STEP (increment) 
the control value may be incremented by any value: whole, decimal, positive or 
negative rather than by just 1. 

A flowchart diagram illustrating the action of the FOR loop is shown in fig. 
4.2. 


For N = (start value) TO (end value) STEP (value) 


—~« 


Group of statements to be 
repeatedly executed 
N = N + (step value) 


group of statements to be 
repeatedly executed 


IsN = 
(end value) ? 


YES 


Fig. 4.2. Flowchart illustration of FOR loop action. 


FOR loops: examples of their use 


(1) On running the following simple FOR loop program: 


lO REM **k FOR loop demo 1 xxx 
29 CLS 

30 FOR mn=1 TO 6 

40 FRINT na"Coffee please !" 
30 NEXT n 
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i.e. RUN [ENTER] 
you will obtain the display 


Coffee please 
Coffee please 
Coffee please 
Coffee please 
Coffee please 
Coffee please 


1 es 


Statement 30 instructs that n should be changed consecutively from 1 to 6 in 
steps of 1. Thus statement 40 is executed 6 times with n incremented by | at the 
end of each cycle. 


(2) This program utilises the FOR loop to display a table of squares, cubes and 
fourth powers of the numbers from n = | to 10. 


10 REM Xxx FOR loop demo 2 Xxx 

20 MODE 3 

30 PRINT "n", "nv2", "nes", "ne 4" 

40 PRINT 

50 FOR n=1 TO 10 

60 PRINT nynv2yn7S,n74 

70 NEXT n 

80 FOR delay=1 TO 10000:NEXT delay 
90 MODE 1 


On typing, 
RUN [ENTER] 
we obtain the display: 


n nw2 nos n-4 
1 1 1 1 
2 4 8 14 
es 9 27 81 
4. 16 64 26 
ha 25 125 20 
& 2) 216 1296 
7 49 243 2401 
8 64 Sif 4096 
9 81 729 6561 
19 100 1000 10000 
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Note, we have used mode 2 (line 20), the high resolution mode with 80 
columns. This ensures that the output of statement 60 is contained on a single 
line of the screen. We have also used at line 80 the FOR loop as a delay so as to 
hold the display for 10 or so seconds before changing back to mode 1 with the 
subsequent clearance of the screen. 


(3) This program illustrates the use of STEP. The FOR loop statement at line 40 
uses a 0.1 step value; the second FOR loop at line 120 uses a negative step value 
of —0.5 


10 REM **x FOR demo with STEF xxx 
18) PRINT i 4 . u i eee TL " yg oe i) 

20 PRINT 

40 FOR x=0 TO ©.7 STEF 0.1 

SO PRINT xax"2ax7S 

60 NEXT x 


70 PRINT 

80 FRINT "With negative step value” 
90 PRINT 

100 FRINT "n","4/n" 

110 PRINT 


120 FOR n= S&S TO 1 STEF —-0.5 

120 PRINT n,1/n 

140 NEXT n 

On running the program, you will obtain the following display: 
oO O QO 

Ow O,o1 O,O01 


0.2 0.04 0.908 
O.3 0.09 0, O27 
Oo. 4 0.16 0. O64 
0.5 0.25 O.125 
0.6 0.36 O.216 


With negative step value 


n 1/n 
wd O,2 
4, 0). 293999099 
4 0,25 
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a O, 285714286, 
3 O, SASSRSR55 
Ze O,4 

2 o.5 

1.5 0. 666666667 
1 1 


(4) This program utilises the FOR loop to draw up a table showing how a given 
sum invested at a given rate grows annually over a period of 10 years. 
The program is set with 
p = sum invested = £100 
r = interest rate, % = 8.25 
and uses the compound interest formula: 
a = p(1 + r/100)” 
where a = amount = sum invested + interest 
n = number of years 


IO REM XXX compound interest calc. Xxx 
20 CLS 

20 FRINT "year", "interest", "total" 

40 PRINT 

a0 FOR n=i TO 1s 

60 p=100rr=98. 25: a=pk (14+r/100)"n 

7Q FRINT n, USING" "#884. ##"sa-py 

80 FRINT TAR(26) USING" ##H. HH" S a 

90 NEXT n 


On running the program with the above values you will obtain the following 
display: 


year interest total 
1 8.25 108.25 
2 17.18 117.18 
& 26.85 1246.85 
4 37.21 127.31 
va 48.64 148.64 
6 60.90 160.90 
7 74.18 174.18 
8 88.55 188.55 
9? 1904.10 204,10 
10 120.94 220.94 
11 129.17 259.17 
12 158.90 258.90 
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Ls 180.26 280.26 
14 203, 28 302, 38 
15 228.41 328.41 


Try modifying the program so you can input your own values for p and r. For 
example, include 
24 INPUT “Enter sum invested” ; p 
28 INPUT ‘‘Rate of interest” ; r 
and change line 60 to 
60 a = p*(14+1r/100) fn 


4.4 REPETITION UNDER CONDITIONS: THE WHILE LOOP 


WHILE 
(test expression) 


FALSE 


Statement(s) to 
be executed if 
test expression 
is satisfied 
WEND 


To line statement 
immediately after 
WEND 


Fig. 4.3, Flowchart illustration of WHILE loop. 


CPC464 BASIC provides a very useful form of repetitive control which allows a 
group of statements to be repeated WHILE a test condition is satisfied. 

The WHILE loop takes the form: 
100 WHILE (test condition expression) 


110 group of statement(s) to be 

120 executed WHILE test expression 
130 is satisfied 

170 WEND 

180... 


The test condition expression following WHILE determines whether or not 
the statement(s) grouped between WHILE and WEND are executed. This 
expression is evaluated at the beginning of each cycle. If it yields a TRUE value 
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the following statements are executed, if not they are skipped and execution 
transfers to the statement immediately following WEND. Remember the 
statements between WHILE and WEND should eventually produce a result to 
alter the test condition expression to FALSE, otherwise your program will be 
trapped in the loop forever! 

Fig. 4.3 shows a flowchart representation of the WHILE loop. 


WHILE loops: examples of their use 


(1) The following program uses the WHILE ... WEND loop to READ fifty 
marks from the DATA statements. WHILE n<50 it READs and sums the 
marks. After READing the fiftieth data value it exits the loop and displays the 
mark average. 


10 REM «kx WHILE...WEND demo xXx 

20 CLS 

3O n=O: sum=O 

40 WHILE nasa 

sO READ mark 

60 sum=sum + mark 

70 n=nt+i 

806 WEND 

90 FRINT "“Aveage mark ="ZUSING'##. ##" s sum/S0 
100 DATA 67,83, 23,79,45,12, 88,43, 29,10 
110 DATA 22,41,65,9,76,22,18,67,90,76 
120 DATA 35,98,0,43,12,87,44, 31,74, 11 
120 DATA 81,54, 78, 25, 54,89,67,50, 23,14 
140 DATA 66,99, 41,36,12, 54,82, 45, 36,89 


(2) This program is a minor modification of the one above. 

It contains two additional statements in the WHILE loop to count the number 
of ‘passes’ and ‘failures’ (see lines 52 and 56). Note for both programs that the 
test condition at line 40 must be ‘evaluatable’ before entry to the WHILE loop 
for the first time. For this reason we initialise n to zero (see line 30). Also ensure 
all other variables, i.e. sum, pass, fail, are initialised before entry to the loop. 


10 REM ¥xXxX WHILE...WEND dema xxx 
29 CLS 

30 n=O2 sum=0 

25 pass=O:fail=0 

40 WHILE nso 

oO READ mark 

a2 IF mark?=40 THEN pass=pass+l1 
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oO IF mark=40 THEN fail=fail+i 
60 SUM=SuUM + mark 
70 n=nti 


80 WEND 
90 PRINT "Average mark ="sUSING"##. ##"; sum/SO 
2 FRINT "no.of passes ="tpass 


96 FRINT "no. of failures ="sfail 

100 DATA 67,83, 22, 78,45, 125,88,45, 29,160 
110 DATA 23,41,65,9,76,22,18,67,90, 76 
126 DATA SS, 98,0,43,12,87,44,31,74,11 
120 DATA 81,54, 78, 25,54,89,67,50,23, 14 
140 DATA 66,99,41, 36,12, 54, 82, 45, 26,89 


On running the program you will obtain (for the above data): 


Average mark = 50.50 
no. of passes = 32 
no. of failures = 18 


(3) This simple program utilises the WHILE loop to keep a running total of 
values entered from the keyboard. Exit from the WHILE loop is obtained by 
entering 0. 


10 REM XX Simple WHILE loop demo xxx 
29 CLS 

oO situm=O 

so FRINT TAR(28) "sum soa far" 

40 INPUT “First vaue"ssx 

2O WHILE x20 

60 SumM=suMm+x 

70 FRINT TAB(C2S8) sum 

80 INFUT "next value"s x 

90 WEND 


Try running the program. You will find that the ‘running’ total is displayed 
from column 28 (for mode 1, approximately three-quarters across the screen to 
the right). 

The following program is a modification of the above. It provides running 
total output displays to the window on the screen (the window being defined in 
line 20, from column 28 to 40 and from top row 1 to row 25 of the screen) and 
alsoahardcopy output to the printer. These outputs are channelled via #5 for the 
window (see lines 30 and 70) and via the printer channel #8 for the printer (see 
lines 35 and 75). 
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19 CLS 

20 WINDOW #5, 28,40,1,26 

20 PRINT #5, "sum so far" 
ao PRINT #8, "sum so far" 
40 INFUT "first value"ys 
30 WHILE xieo 

60 sium=sum+tx 

79 FRINT #5, sum 

75 FRINT #8, sum 

BO INFUT "next value"; x 

90 WEND 


4.5 BOOLEAN OPERATORS AND LOGIC EXPRESSIONS FOR 
FORMING TEST CONDITIONS 


In the IF ... THEN statement it is often very useful to use what are called 
Boolean expressions to instruct the computer to make decisions. ‘Boolean’ 
refers to a very simple form of logic and is a method of joining together two or 
more conditions to form a decision-making statement. 

Boolean-logic expressions are used essentially to form the test expressions for 
decision making in IF. . . type statements. 

A Boolean expression, just like the comparison expressions considered in 
section 4.2, can take only one of two values: TRUE or FALSE. In CPC464 
BASIC the TRUE value is numerically equal to 1 (or —1 for comparison 
expressions) and the FALSE value is 0. 

In addition to the comparison operators, four Boolean or logic operators: 
NOT, AND, OR, XOR 
are used to create Boolean expressions, which are invaluable in forming test 
condition expressions. Their meaning is as follows: 

NOT is the logical NOT or logical negation, e.g. NOT A is TRUE if A is 
FALSE and is FALSE if A is TRUE. 

AND is the logical AND, e.g. A AND B is TRUE if and only if A and B are 
both TRUE; if A and/or B are FALSE, A AND Bis assigned a FALSE value. 

OR is the logical OR, e.g. A OR B is TRUE if either or both A and B are 
TRUE; if A and B are both false A OR B is assigned a FALSE value. 

XOR is the logical EXCLUSIVE OR, e.g. A XOR Bis TRUE if either A or 
Bis TRUE; if A and B are both TRUE or both FALSE A XOR B is FALSE. 


Precedence 


The order of precedence of these operators in evaluating Boolean expressions 
is as follows: 
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highest NOT 

AND 

OR, XOR 

=,<>,<=,>=,<,> 
A simple Boolean expression consists of a series of Boolean values separated 
by AND, OR, XOR or preceded by NOT. For example, suppose A, B, C, D 
are variables which are assigned either TRUE or FALSE (i.e. either 1 or 0) 
values using comparison type expressions, then, 
A AND B AND CAND Dis TRUE if and only if A, B, C, D are all assigned 
TRUE values 
A AND NOT D is TRUE if A is TRUE and D is FALSE 
A OR COR Dis TRUE if one or more of the variables is assigned TRUE 
C XOR D is TRUE if either C or D is TRUE, otherwise it is FALSE. 


Examples 


(1) The following program illustrates the meaning of the fundamental AND, 
OR and XOR operators. Enter various combinations of 0 and 1s for the 
variables A and B, the results of 


F1=AANDB 
F2=AORB 
F3 = A XORB 


are displayed. 


10 REM Xkk Boolean expressions dema Xxx 
20 CLS 

30 INFUT "A and B, © or 1"3A,B 
40 FRINTs PRINT 

30 FRINT "For A ="Az" and B ="sH 
60 FRINT:FRINT 

70 FRINT "AND example: " 

80 Fi= A AND B 

90 FRINT "Fi = A AND B="sF1 

100 FRINT:FRINT 

110 FRINT "QR example: " 

120 F2= A OR BH 

120 FRINT "F2 = A OR B ="3F2 

140 FRINTsFRINT 

150 PRINT "XOR e@xample:" 

160 Fa= A XOR B 

170 FRINT "FSR = A XOR B ="3FR 
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(2) This example illustrates the formation of test conditions using a combination 
of Boolean and comparison operators (see lines 30 and 80). These expressions 
are used respectively in lines 50 and 90 as the test condition expression in IF 
statements. Try running the program to see how it works. 


10 REM &xXxk Boolean expression dema xXx 

20 INFUT "a, b"sa,b 

SO statel= at1O AND beeo 

40 FRINT "statel ="sstatel 

20 IF statel THEN FRINT "OK" ELSE FRINT "Not 
satisfied" 

60 FRINTs PRINT 

7O INFUT "“cyd"sc.d 

80 states= c=100 OR di=o 

90 IF state2 THEN FRINT "stateS is satisfied" 


(3) The following program illustrates the use of a logic expression in the control 
of a WHILE loop. The program could be regarded as a control simulation 
exercise for a machine or process, i.e. WHILE A = 1 AND B= 1ANDC = 1 
keep the process running, but make checks on the A, B, C control values. Ifa 
fault occurs exit from the WHILE loop and display which fault(s) have 
occurred. 

Once again try running the program. 


1Oo CLS 

20 FRINT "IF A,B,C TESTS O.E. ENTER 1" 

30 PRINT "for each test state, IF NOT ENTER o" 

40 FRINT 

oO A=1:BR=1:C=1:REM Initial conditions set as OK 

60 WHILE A=1 AND H=1 AND C=i1 

70 PRINT "ALL CONDITIONS O.K." 

BO PRINT “CONTINUE RUNNING" 

90 INFUT "A,B,C VALUES";A,8,C 

100 CLS 

110 WEND 

120 TF A=O THEN FRINT "FAULT As CHECE OIL" 

120 IF B=O THEN FRINT "FAULT Bs INSUFFICIENT 
COOLANT" 

140 IF C=O THEN FRINT "FAULT C:FUMF NOT WORKING" 


4.6 GOTO COMMANDS AND STATEMENTS 


In many program solutions we frequently wish to ‘jump’ the normal ascending 
order of line statement execution and transfer to a higher or lower line rather 
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than proceed to statement immediately following. We have already seen how 
this is done in IF and WHILE type statements. For example, 

100 IF x>0 THEN 200 

would transfer execution to line 200 if x is greater than 0. This statement can 
also be written including GOTO, i.e. 

100 IF x>0 THEN GOTO 200 

which has the identical effect. The inclusion of GOTO, however, is not 
necessary in IF statements. 

GOTO is one of the two BASIC ‘jump’ instructions. It can be used as a direct 
mode command in a similar manner as RUN (line number) to start the 
execution of a program at a given line. For example, 

GOTO 200 [ENTER] 


would start the execution of a program at line 200. 


Examples: use of GOTO 


(1) This short program illustrates the use of GOTO for holding a display, 
without the ‘Ready’ caption reappearing. At the end of the program line 70, 
70 GOTO 70 
forms a continuous closed loop. When you wish the program to be halted, press 
the ESCape key twice. This will break program execution and return the cursor 
to the screen. 


10 REM x*kxk GOTO demo Xxx 

20 MODE © 

30 LOCATE 4,12 

40 FRINT "BUY THIS BOOK" 

20 PRINT: PRINT 

60 FRINT "XXX R GM KxXKKK" 
709 GOTO 7O 


(2) This program allows you to continually convert feet and inches to metres. 
At line 60 you are asked to INPUT the number of feet and inches. Remember to 
separate the ‘ft’ and ‘in’ values by a comma and as always press ENTER. The 
computer will then effect the calculation and display the result, whilst line 120: 
120 GOTO 40 

transfers you back for another calculation. To exit from the program ENTER 
—999 for ‘ft’ and any value for ‘in’. The IF statement at line 70 will THEN END 
the program. 


10 REM *xx GOTO example xxx 

20 CLS 

20 FRINT "Feet and inches to meters conversian" 
40 FRINT 
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30 FRINT “enter no. of feet and inches" 

60 INFUT ft,in 

79 IF #t=-999 THEN END 

BO m= (1 SkFft+ind kO, O25 

90 FRINT fta "feet "sing “inches ="4 

160 FRINT m3 "meters" 

110 PRINT "-—-—-~----—---—-- rt 
120 GOTO 40 


The ON ... GOTO statement 


We can also use the ON... GOTO statement: 
ON (select variable) GOTO (line number 1) , (line number 2), . . . 
This type of statement causes program execution to jump to one of the specified 
line numbers according to the value of the select variable. Transfer to the first 
line number specified after GOTO will be made if the value of the select 
variable value is 1; transfer to the second specified line number if the value is 2, 
and so on. Any number of line numbers may be specified provided they can be 
placed on the same logical line. 
For example, 
100 ON n GOTO 200, 300, 400 
If the value of 1 is 1 then program execution will jump to line 200; if n = 2 
execution jumps to 300; if n = 3 then execution jumps to 400; if we input a 
higher value for n, e.g. 4, program execution would proceed to the line 
immediately following the ON... GOTO statement. 

The following program illustrates a practical example of the use of the ON 
... GOTO statement. 


10 REM «xx ON... GOTO example xxx 

20 CLS 

20 PRINT “ Ski Holiday Tarriffs " 

40 FRINT "Resorts on file:" 

SO FRINT "La Flagne...Enter 1" 

60 PRINT "Verbier.....Enter 3" 

7QO PRINT "Sollwaseeaeee Enter 3" 

80 FRINT "Les Arcs....Enter 4" 

90 INFUT “your selection ="sn 

100 PRINT 

110 TF n24 THEN FRINT “Incorrect entry":GOTO 40 
120 FRINT 

1320 ON n GOTO 140,170, 200, 220 

140 FRINT "High season FF 2500 per week" 
150 PRINT "Low seasan FF 1700 per week" 
160 END 

170 FRINT "High season SF 1000 per week" 
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180 PRINT "Low season SF 700 per week" 
190 END 

200 FRINT "All seasons AS 6600" 

210 END 

220 FRINT “December FF 2200 per week " 

230 FRINT "Christmas and New Year" 

240 FRINT "special 190 day package FF 3200" 
2090 FRINT "Jan, Feb FF 2400 per week" 

260 END 


4.7 GOSUB STATEMENTS AND SUBROUTINES 


The action of GOSUB statements are similar to GOTO statements but contain 
in addition a RETURN. They are used to transfer program execution to a given 
section of the program which contains a subroutine designed to execute a 
certain task. After executing the subroutine execution is returned, by a 
RETURN statement which must form the last line of the subroutine, to the line 
statement immediately following the GOSUB statement. The use of 
subroutines have important advantages in programming. The subroutine need 
only be written once and can be ‘called’ into action as many times as is required 
in the main program. 
The general form of aGOSUB... RETURN construct is given below 

100 GOSUB 600 

110... 

120... 


600 first line of subroutine 
610 
620 


. .Statements to be executed to perform task of subroutine 


650 
660 RETURN ...returns execution to line immediately 
following GOSUB statement, i.e. in this 
case line 110 
The GOSUB line number statement transfers processing of a program to the 
line number specified and is used, for example, to go to a subroutine which 
follows from that line number. A RETURN statement acts to terminate the 
subroutine statements and return processing back to the line statement 
immediately following the GOSUB statement. 
We can also use the ON .. . GOSUB statement: 
ON (select variable) GOSUB (line number 1) , (line number 2),... 
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which is fundamentally the same as the ON . .. GOTO statement considered i1 
the last section, but differs in that program execution always returns to the firs 
statement immediately following the ON ... GOSUB statement afte 
execution of the subroutine. 

For example, 

100 ON X GOSUB 500, 600 


110... 

500 REM * subroutine 1 * 

590 RETURN: REM* —_End of subroutine 1* 
600 REM * Subroutine 2 * 

750 RETURN : REM * End of subroutine 2 * 


When X = 1 at line 100, program execution jumps to the subroutine at line 50 
and after execution of the subroutine returns to line 110, the line immediatel 
following the ON ... GOSUB statement. 

If X = 2 at line 100, execution would then jump to execute the subroutine 
commencing at line 600 and then return at the end of the subroutine (line 750 
to line 110. 

The following example illustrates a practical example of using GOSUB. Th« 
program plots a horizontal bar chart for the sales figures contained in DAT/ 
statement, line 5000. The subroutine used to plot bars is contained in the 
section lines 1000 to 1060. 


10 REM Xk Use of GOSUB: Bar Chart xxx 
20 CLS 

20 FRINT " a 10 15 20 25" 
SS PRINT "----e eee cee rr rr ¢ 
40 FRINT "“U.E. sales":GOSUB 1000 

a0 FRINT "French sales":GOSUR 1000 

60 FRINT "U.S.A. sales":GOSUB 1000 

70 FRINT "German sales":GOSUBR 1000 

80 FRINT “African sales":GOSUB 1000 
90 FRINT “Italian sales":GOSUEB 1000 
100 FRINT "Swedish sales":GOSUB LOOG 
110 FRINT "Australian sales": GOSUBR 1000 
120 END 
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1900 REM *&k Subrautine for plotting bar" 
1O1O0 READ sales 

1020 FOR n=1 TO sales 

1O30 FRINT "X's 

1940 NEXT n 

16050 FRINT " S$"3salesy"s 100000" 

1060 RETURN 

3000 DATA 14,19,12,24,5,17,13,7 


Here is the bar chart display obtained on running the program: 


3 10 1S 20 25 
U.E. sales 
KKKKKKKKAKKAKKK $ 14 » LOO000 
French sales 
XKKKKKKKKKKKKKKKKEK GF 1D x LOOOOG 
U.S.A. sales 
XKKKKKKKKKKK S$ LE x LO0G00G 
German sales 
OOOO KKK KKK ROKKKKKK © S4 e LOOOOO 
African sales 
KKKKK $$ S x 100006 
Italian sales 
XO KKK KKK KKKKKKK $F LF x LOOGOO 
Swedish sales 
KKKKKKKKKKKKK $F$ LE we LOO00O 
Australian sales 
KK KK KKK $ 7 x LO0000 
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(1) Write a program that will display a message only if the correct password 


4401326019 is keyed in 


(2) Write a program that will print out a standard memo a given number of 


times. This number is to be input from the keyboard. 


(3) Write a program that READs up to 50 values contained in data statements 


and determines their average. 


(4) Write a program that will select five different courses of action depending 


on whether 1, 2, 3, 4 or 5 is keyed in. 


(5) Write a subroutine that will determine the maximum and minimum values 
in a list of data contained in DATA statements. Incorporate this subroutine in a 
program which displays these values for the first 10, the first 20, and the total 


list. 


5 


STANDARD FUNCTIONS AND 
APPLICATIONS 


5.1 INTRODUCTION AND SUMMARY 


A wide variety of standard functions are provided in CPC464 BASIC. In thi; 
chapter we describe the form and explain the meaning and use of thos 
functions used in handling numbers, for providing values for mathematica 
functions and also those used to process characters and strings. We alsc 
consider how we can define and use our own ‘user-defined’ functions. 


5.2. STANDARD FUNCTION FOR SQUARE ROOTS: SQR(X) 


SQR(X), where X is any positive number or expression, will compute the 
square root of the value X within the brackets. For example, 


(1) 
PRINT SOR (1197.16) [ENTER] 
34.6 . . . square root of 1197.16 is displayed on screen 


(2) 


10 INFUT "Value of x"ax 
20 FRINT S@QR(x) 


RUN [ENTER] 


Value of X = 57.76 [ENTER] . . . note we enter 57.76 
7.6 . . . Square root of 57.76 displayed 
(3) 


10 INFUT "Values of a,b,c"sa,b.c 
20 “«=atbtc 

20 y=bXc 

40 FRINT x.yax/y, SOR (x/y) 


Standard Functions and Applications 63 


RUN [ENTER] 
Values of a, b, c? 23.6, 8.96, 4.28 [ENTER] 
36.84 38.3488 0.960656 0.980131 
. . results displayed, i.e.x =a+b+c,y=b xc, x/y, V(x/y) 
We can, of course, use the 7 key to find any power or root (see also chapter 
1, section 1.6): 


PRINT 2.25 7 0.5 . .. gives square root of 2.25 

PRINT 46 7 2 ... gives square of 46 

PRINT 112.6 7 4 ... gives 112.6 raised to the power of 4 

PRINT 59.3 7 0.68 ... gives 59.3 raised to power 0.68 

PRINT 48 } — 1.8 _.. gives 48718 = on = 9.41382E—04 
gi 


5.3. STANDARD FUNCTIONS FOR ABSolute, INTeger, ROUNDing AND 
SIGN OF NUMBERS 


ABS(X) provides the absolute value (i.e. magnitude) of the value of the 
number or arithmetic expression X specified within the brackets. 
For example, 


PRINT ABS (44.67) .. . displays 44.67 
PRINT ABS (—44.67) . . . displays 44.67, i.e. the magnitude of —44.67 
PRINT ABS (32 + 49) .. . displays 81 
PRINT ABS (32 — 49) ... displays 17 , i.e. | 32— 49 | = | -17| =17 


CPC464 BASIC provides four functions for ‘rounding’ numbers: 
ROUND (x,r) provides the value of x to r decimal places. 
For example, 
PRINT ROUND (5.759345,2) gives 
5.76 ...41.e. x specified to 2 decimal places 
PRINT ROUND (8.934527E —3,4) gives 
0.0089 ... Le. x to 4 decimal places 
PRINT ROUND (897.56*34.62/29.42,1) 
1056.2 ... Le. x to 1 decimal place 
INT(X) provides the value of X to the nearest smallest whole number. 
For example, 


PRINT INT (11.8) ... displays 11 

PRINT INT (—11.4) . . . displays —12 

PRINT INT (8.4 * 6.3) . . . displays 52, as 8.4 x 6.3 = 52.92 
PRINT INT (—8.4 * 6.3) .. . displays —53 


FIX(X) removes any decimal part of X and returns the whole number part. 
For example, 
PRINT FIX (11.9) ... returns 11 
PRINT FIX (—11.9) ... returns —11 
Note INT (—11.9) returns —12, i.e. rounds to smallest whole number. 
CINT(X) converts the value of X to a rounded whole number in the INTeger 
range —32768 to +32767 of the CPC464. 
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For example, 


PRINT CINT (119.72) .. . returns 120 
PRINT CINT (—119.72) ... returns —120 
PRINT CINT (98890.87) ... returns “Overflow” message, i.e. 9889( 


exceeds the CPC464 INTeger range 


Sign of numbers, SGN(X) 

The SiGN function is used to determine the sign of the value of the variable o1 
numeric expression X. SGN(X) returns —1 if X is less than 0, returns 0 if X = 0. 
and returns +1 if X is greater than 0, e.g. 


SGN (52.6) ... returns +1 
SGN (0) ... returns 0 
SGN (—10.7) ...returns —1 


5.4 GENERATION OF RANDOM NUMBERS 


RND(N) generates a pseudo random number in the range 0 to 0.999 999 999, 
For example, each time the following program is run it generates 10 random 
numbers 


10 FOR n = 1 TO 16 
20 FRINT n,RND(22) 
30 NEXT n 


Here is a typical print-out: 


O. 182127052 
O. 729726442 
0. 526203542 
0.671128625 
o.91433E-02 
0. 598122045 
1.17327E-O2 
0. 177665838 
0,5967351153 
O.B14979649 


= QON BU Dt he 


~, 
— 


Using the FIX or INT standard functions you can generate random whole 
numbers in any range as illustrated by the following program. 


1G REM kx Generation of random nos Xxx 
20 PRINT " © to 1"3TAR(1S) "0-99"; 
30 PRINT TAB(2S2) "0-499": TAB C32) "0-999" 
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40 PRINT 

30 FOR n=1 TO 10 

60 “x=RND(n) sx LOO=FIX (100xkx) 

70 “xSOO=F TX (SO0OkKx) sx 1LOOO=FIX (CLO0Okx > 
BO FRINT x3 TAB(15)3sx100; 

90 FRINT TAB(22) yx3003 TABCE2S) yx 1000 
100 NEXT n 


Here is a typical display: 


oO to 1 O-DD 0-499 O-999 
O,8792326445 87 429 879 
O.516902614 wi 258 w1é 
7.14947E-02 7 2S 71 
9. 120B6E-02 9 45 91 
0. 68626697 68 4s 686 
O, 122103277 12 éi 122 
0, 862517284 B84 421 B62 
0. 264316374 26 ae 264 
0. 790767248 79 293 790 
©,.441 823238 44 B20 441 
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This program can be used to check the ‘randomness’ of the CPC464 random 
generator. It counts the number of 1s, 2s, 3s, 4s, 5s and 6s generated for a total 
of 600 random numbers. Your counts should be approximately 100 each. Try 
running the program, it only takes about 12 seconds. 


10 REM **x Random number check ¥*xxX 
20 CLS 

30 FOR n=1 TO 600 

40 x=INT(6XRND (mn) +1) 

50 IF x=1 THEN ci=cit+i 

60 IF x=2 THEN c2=c2+1 

7O IF x=3 THEN c3=ci+1 

80 IF x=4 THEN c4=c4+1 

90 IF x=5 THEN cS=cS+1 

100 IF x=6& THEN cé=c6+1 

110 NEXT n 

120 PRINT 

120 FRINT "no. of 1°%s ="scl 
140 FRINT "no. of 2's ="ge2 
150 FRINT "no. of 3’ s ="geR 
160 PRINT "no. of 4*%5s ="sc4 
170 PRINT "no. of S*s ="43c5 
180 PRINT "no. of 6’s ="sc6 
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Random numbers are extremely useful in making tests, e.g. sorting and 
statistics, which we consider later. They are also widely employed in games. 
Here is a simple example: 


48 REM XXX Simple game xxx 
“=O FRINT"This is a simple game, you versus the CFC" 
35 PRINT 

40 FPRINT"It involves tossing an imaginary die!" 

45 FRINT 

SO PRINT "Input what number between 1 AND 6" 

60 FRINT" you think the CFC will generate" 

65 PRINT 

70 INFUT "My guess is"sn 

BO CFC.no =INT(RND (4) *6) +1 

90 IF nm = CFC.no THEN 120 

935 FRINT 

100 FPRINT'Hard luck! "3s" the CFC no. was "sCFC.no 
110 FRINT: GOTO 130 

120 PRINT"Well done, your guess was right" 

130 FRINT"If you want another go, type yes" 

140 FPRINT"if not, type no" 

150 INFUT answer % 

160 IF answert="yes" THEN 70 

170 END 


5.5 TRIGONOMETRIC FUNCTIONS 


Standard functions are available for the following trigonometric functions: 
SIN (x) ... gives sin x 


COS (x) ... gives COs x 
TAN (x) ... gives tan x 
ATN (x) . .. gives arc tan x or tan”! x, with x, with x given in radians 


within the range —z/2 to +2/2. The value of x (the default value) is in radians 
unless set to the degrees mode using DEG. If a DEG statement or command is 
used then x is set to degrees, e.g. 


10 DEG 

20 x60 

30 FRINT SIN(x?),COS(x), TAN(Gx) 

40 PRINT ATN(1)sREM tan 45 degrees = 1 


Statement 10 sets the degree mode, so the output from line 30 will give sine, 
cosine and tangent of 60°; line 40 will give arctan (1), i.e. 45°. 

Once called into operation DEG sets the degree mode until instructed by 
CLEAR which clears all variables, or by using RAD, or more drastically by using 
NEW which deletes the entire program. 
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The RAD command or statement sets the radian mode. Remember the 
relationship between angles expressed in radians and degrees is 
x radians = x degrees X 1/180 


H 


(b) 


Fig. 5.1. The three basic trigonometric functions. (a) Definitions of sine, cosine and tangent of an 
angle: 
sin 8 = P, cos 6 = _B, tan 8 = L 

H H 


(b) Waveforms for sine, cosine and tangent. 
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The CPC464 stores the value of x to 8 decimal places as pi or PI, e.g. 
print pi . . . returns the value 3.14159265 

Fig. 5.1 gives the basic definitions and the waveforms for sin, cos and tan. 
Using the CPC464 graphics facilities we can easily display waveforms (see 
example 4 following in this section and chapter 6). 


Trigonometric functions: program examples 


(1) This program produces a table of sin x values from 0° to 360° in steps of 20°. 


10 REM xXx Table of sin x KX 


20 CLS 

30 PRINT "x deg. "sTABCIS) "sin x" 
40 PRINT 

a0 DEG 


60 FOR x=O0 TO 366 STEF 20 
70 FRINT x,SI0NCx) 
BO NEXT x 


RUN [ENTER] 


x deq. sin x 

oO O 

Oo O, 242020145 
40 0.64278761 
0 0, 866025404 
BO 0. 984807753 
100 0. 9848077353 
120 0. 866025404 
140 0. 64278761 
140 0. 342020143 
180 0 

200 ~O,. 342020143 
220 -0, 642787609 
240 —0. 866025404 
260 -O,. 984807753 
280 ~-0. 9848077353 
300 —0,. 866025404 
220 -0,. 642787609 
340 -O, 342020143 
360 O 


(2) This program applies the Sine Rule (see fig. 5.2) to calculate the sides BC 
and AB given the angles A and C and the third length AC. 
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b € 


i 3 5 ae 
Fig 5.2 Sine Rule: = ot aah oat 


10 REM Xxx Sine Rule example kxx 

20 CLS 

20 INFUT “enter two known angles";A,C 
40 INFUT “known side length"sAC 

50 B=180-A-C 

60 DEG 

79 BC=SIN(A) KAC/SIN(B) 

BO AB=SIN(C) kKAC/SIN(E) 

90 FRINT "BC ="3s ROUND (BC, 2) 

100 PRINT “AER ='"s ROUND (AB, 2) 


Try running the program, e.g. by inputting A = 32°, C = 75° and AC = 64.4. 
The results obtained for the two sides are: BC = 35.69, AB = 65.05 


(3) This program applies the second very useful rule, the Cosine Rule (see fig. 
5.3). 


te fy 


Fig. 5.3. Cosine Rule: a® = b? + c? — 2bc cos A. 


10 REM XXX Application of Cosine Rule xxx 
29 CLS 
30 INFUT "Two sides and included angle"sb,c,A 
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40 DEG 
20 BC=SQR (h“2+e"2-2kb ko KCOS (A) ) 
60 FRINT "a ="sROUND (EC, 4) 


On running the program with the following data: b = 112,c = 58.6, A = 47°, 
you will obtain a = 83.8199. 


(4) This program pre-empts the next chapter on graphics but is fairly easy to 
understand. The origin is set by the ORIGIN statement to be in the centre of the 
screen. PLOT instructs the computer to plot points and DRAW to draw lines. 
This program plots a sinewave y = sin x from —320° to +320°. The display 
obtained is shown in fig. 5.4. 


10 REM *x drawing a sinewave xX* 
20 CLS 

30 FRINT "sinewave y=sin x from x=-220 to 320 degrees" 
40 ORIGIN 320, 200 

30 PLOT -220,0 

60 DRAW 320,00 

70 FLOT O,-200 

BO DRAW 0, 200 

90 FOR x=-320 TO 320 

100 DEG: y=SIN(x) 

110 PLOT x,y*100 

120 NEXT x 


Sine wave y = sinx from x = —320 to 320 


Fig. 5.4 Display obtained on running sinewave program of example 4. 
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5.6 EXPONENTIAL AND LOGARITHMIC FUNCTIONS 


x 


Fig. 5.5 Plot of exponential function e*. 


EXP(X) gives e raised to the power X, i.e. gives values of the exponential 
function, e* where e = 2.7182818... 

LOG(x) gives the natural logarithm of x, where x must be greater than zero. 

LOG10(x) gives the common logarithm (log to base 10) of x ; x must be 
greater than zero. 


Exponential and log functions: examples 


(1) 

PRINT EXP (2.4) [ENTER] 

11.0231764 .. . value of e?* obtained 

(2) 

PRINT EXP(1.6) + EXP(—1.6) [ENTER] 
5.15492894 ... value of e'°+e!° displayed 


(3) The following program produces a table of log, and log), for x = 1 to 10. 
The log values have been rounded to 5 decimal places. 


10 FRINT " x"," jiage"," lagio" 

20 FRINT 

30 FOR x=i1 TO 10 

40 PRINT »x,ROUND( LOG(x),5),ROUND(LOG1IO(x),&) 
50 NEXT x 


x loge logil® 

1 a) oO 

= 0.469315 Oo, S0103 
a 1.09861 O.47712 
4 1.284629 O,. 60206 
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a 1.460944 0.69897 
6 1.79176 O.77815 
7 1.94591 0.8451 
8 2.197944 O. 90209 
9 2.19722 0. 95424 
10 2.4 30259 1 


5.7 USER DEFINED FUNCTIONS 


The BASIC language also allows us to define our own functions—user defined 
furictions—as follows: 

100 DEF FN identifier (parameter list) = expression for result 

The function must have an identifier, just as a variable, and the parameter list is 
used to feed data values to be used in computing the function result, i.e. the 
value returned by the function. 

A user defined function can be ‘called’ or ‘invoked’ at any time in a program 
simply by writing FN identifier (parameter list values). The function definition, 
however, should be written outside any loops in which it is called and certainly 
always before it is first used. Function definitions are therefore usually written 
early on a program. 

The definition and function ‘calls’ are illustrated in the following examples. 


User defined functions: program examples 


(1) This program contains the definitions of two functions: 

FNA(r) = 4xtr? and FNV(r) = 4ar°/3 

to calculate respectively the surface area and volume of a sphere of radius r. 
Calls are made to the functions: at line 50 to calculate the area for r = 5.6; at 

line 60 to calculate the volume for r = 24; and at line 100 to calculate area and 

volume for a value of r input from the keyboard. 


10 REM Xx*kk User defined functions xxx 

iS REM * for surface area and volume of a sphere 
20 CLS 

SO DEF FNACr)=4kP 1 kre OS 

40 DEF FNV(r) =4xP DT kro 3/3 

90 FRINT "Area ="3 FNACS.46)3" for r = 3.6" 
60 FRINT "Volume ="sFNV(24)3" for r = 34" 

70 FRINTs PRINT 

80 INFUT "Radius ="gr 

90 FRINT "for r="sr 

100 PRINT "Area ="sFNACrdg" Volume ="sFNVCr) 
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(2) This program contains the function, 

FNI (p,r,t) 

which is used to calculate compound interest. The program calls the function in 
a FOR loop to calculate a table of interest values for f = 1 to 10 years; the values 
for the sum invested p and interest rate r are input from the keyboard. 


10 REM Xx* User defined interest functian kx 
20 CLS 

BO DEF FNI(p,r,t) =px (1l+r/100) "t—-p 

40 INFUT "Sum invested and rate “"ap.r 

SO PRINT "year", "interest" 

60 FRINT 

70 FOR t=1 TO 10 

80 FRINT t,ROUND(FNI(p,r,t),2) 

90 NEXT t 


The display obtain when inputting p = 500, r = 12.5 is 


year interest 
1 6245 
= 132.81 
& SLi.91 
4 200.9 
a 401.02 
& oils. 64 
7 640, 35 
8 7382.89 
9 942.25 
10 1123.66 


5.8 STANDARD FUNCTIONS FOR STRINGS: STRING SLICING 


BASIC provides also several useful functions for processing strings. In this 
section we consider string ‘slicing’ functions, i.e. functions that can remove 
characters from a string to form a smaller string. 


The LEFT$ function 


The LEFT$ function is used, as its name suggests, to obtain the first N 
characters of a string starting from the left. A LEFT$ instruction takes the form: 
LEFTS (A$,N) 

which would produce a string consisting of the first N characters of A$. Its 
action is illustrated by running the following short program. 
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10 REM *k* LEFTS(AS,N) demo xxx 

20 a$="127456789" 

30 bé="abcdefghi jkilmnopaqrstuvwsye " 
40 FRINT LEFTS (at, 4) 

45 FRINT 

a0 FRINT LEFT#(b%, 13) 


The display obtained is 


1224 <—————_—_—_____ first 4 characters of a$ starting from left 


abcdefghi jklim <— first 13 characters of b$ 


The RIGHTS$ function 


The RIGHT$ function is used to obtain the last N characters of a string, ending 
with the rightmost character. For example, the display obtained when running 
the following program: 


10 REM &xXk RIGHT#(A#,N) demo xxx 
20 PRINT RIGHT# ("Meadows R G",5) 
30 PRINT 

40 at="ABCDEFGHIJ" 

oO PRINT RIGHTS (at, 6) 


is 
RG last 3 characters of ‘Meadows RG” 


EFGHIJ = <———__ fast 6 characters of a$ 


The MID$ function 


The MID$ function allows any portion of a string to be obtained. It takes the 
general form, 

MID$ (A$, M, N) 

where the whole numbers (integers) M and N define that the string so formed 
consists of N characters starting from the Mth character from the left. For 
example, 


10 REM *xXxX MID#(AS,M,N) demo xxx 
2O PRINT MID ("1224abc89",5, 5) 


would produce the output 
abc 
i.e. a 3 character string starting from the Sth character from the left. 
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5.9 THE LEN FUNCTION FOR DETERMINING THE ‘LENgth’ OF A 
STRING 


The LEN standard function gives the length, i.e. the number of characters, in a 
string. For example 

(1) 

PRINT LEN ‘‘How many characters in this string?” [ENTER] 

35 .. . result displayed. 

Remember all characters including spaces, punctuation marks, etc. in the 
string count as part of its ‘length’. 


(2) 


10 REM Xxx LEN(at) demo xxx 

20 at="R G Meadows" 

ZO FRINT LEN (Ca) 

40 FRINT 

50 PRINT LEN ("123456789abcdef ") 


RUN [ENTER] 
11 ... result for LEN(a$) 
15 ... result for LEN(’123456789abcdef’’) 


5.10 THE VAL AND STR$ FUNCTIONS 


The VALue function converts a ‘number’ string into the actual number which 
can then be assigned, for example, to a numeric variable. 
The STR$ function is the inverse; it converts numeric data into a string. 
The following short program demonstrates their action. 


10 REM *xXxk VAL and STR dema xxx 
2O ag="44535" 

ZO n=VAL (a) 

40 FRINT at,n,nkn 

5O FRINT 

60 b#=STR#(n)+STRS (n) 

70 PRINT bS 


RUN [ENTER] 


443 4455 19829209 


4453 4455 
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The first line of output (line 40) displays 
a$ (i.e. “4453”’) n (i.e. 4453) and n*n 
Clearly the VAL function has converted the string “4453” into the number 
4453. 

The second line of output represents the string b$ formed by combining the 
strings 4453” and 4453”. 


5.11 CHARACTER SETS AND CODES: CHR$ AND ASC STANDARD 
FUNCTIONS 


The characters, i.e. letters; digits 0, 1, 2, ... ; punctuation marks; and 
arithmetic symbols that appear on the CPC464 keyboard form part of what is 
known as the character set of the CPC464 computer. The total set also includes 
many graphics type characters. 

Each character is assigned a number code. The function CHR$ (_) converts 
this code number to its character equivalent in the character set of the Amstrad 
CPC464 computer. 

The following program displays a portion of the CPC464 character set from 
n = 33 ton = 126. This range covers most of the keyboard characters. 


10 FRINT “Code no n", "Character, CHR (n)" 
20 FRINT 

30 FOR n=33 TO 126 

40 FRINT n,CHRS (nm) 

20 NEXT nm 


You will obtain a line by line display if you run the program. The corresponding 
table is shown in fig 5.6 

The remainder of the set extends from n = 127 to n = 255 and consists of 
graphics-type symbols. Modify line 30 
30 FOR n = 127 to 255 
to see the actual characters displayed. Remember you can press the ESC key 
once to pause the program execution (and the display) and press any other key 
for continue. 

One of the most commonly used codes for transmitting information between 
computers and associated devices such as printers etc. is the ASCII code. The 
decimal equivalent of the ASCII code of a character can be found using the 
ASC("’X"’) function. 

The ASC function returns the code for the character X within the quotation 
marks or if a string is present the first character of the string. Obviously the 
character must be a member of the ASCII set. For alphabetic characters, digits, 
punctuation marks, etc. the CPC464 code is identical to the ASCII codes. 
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Code no. CHR$(n) | Codeno. CHR$(n) | Codeno. CHR$(n) 
Character Character Character 


ano a 


ral 
td 


aro + 


Sere 


A 
B 
c 
D 
E 
= 
G 
H 
1 
J 
le 
L 
M 
N 
0 
p 


om o 


Fig. 5.6 Part of character set for CPC464 computer. 


For example, 


(1) 

PRINT ASC(‘’A”) [ENTER] 

65 ... ASCII and CPC464 code for A 
(2) 

PRINT ASC(‘‘a’”’) [ENTER] 

97 ... ASCII and CPC464 code for a 
(3) 

PRINT ASC(“+’’) [ENTER] 

43 . . . code for + symbol 

(4) 

PRINT ASC(‘676"’) 

54 . . . code for 6, the first character of the string 
(5) 


PRINT ASC (“String here’’) [ENTER] 
83 .. . code for S 


78 Programming the Amstrad CPC464 


Exercise problems 5 


(1) Use the functions ROUND, INT and FIX appropriately to 
(a) round the following to the nearest whole number 

4.69, 587.3, —199.9, 0.678, —0.989 

(b) specify the following to an accuracy of 2 decimal places 
58.632998, —9.9989, 0.46798, V58.67 


(2) Write a program to display a list of 16 random numbers in the range 1 to 55. 
Use it to generate a treble-chance forecast! 


(3) Write functions that will return the following values 
(a) the average of 3 quantities 

(b) the volume of a cylinder, given 

V=arh 

where r = radius and h = height of cylinder 


(4) Use the LEN function to determine the lengths of the strings 

(a) “42 Lynton Avenue, London, NW55” 

(b) A$ = ‘A stitch in time, saves 9” 

(c) A$ + B$, where A$ = “123456789” and B$ + “abcdefghijklimnopq” 


(5) (a) Find the ASCII (and CPC464 codes) for 

Z,;9-=*! 

(b) Find the characters corresponding to the following CPC464 codes: 
118, 35, 59, 86, 249, 251 


6 


BASIC GRAPHICS, DRAWING AND 
PLOTTING 


6.1 INTRODUCTION AND SUMMARY 


The CPC464 computer incorporates excellent and easy-to-use graphics 
facilities. In this chapter we consider their use. 

We start by explaining the graphics coordinate system and the use of the 
graphics commands: PLOT, DRAW and ORIGIN. With these commands, as 
their name suggests, we can plot points, draw lines, set the origin and compose 
our own computer-aided drawings. 

We also consider the use of both screen and graphic cursor commands to 
LOCATE and MOVE the respective cursors to any position on the screen and 
their use to label our figures. Applications of graphics to drawing basic shapes, 
defining and using WINDOWS, and plotting curves, waves and our own graphs 
are also included. 


6.2. THE GRAPHICS SYSTEM AND BASIC KEYWORDS PLOT, DRAW, 
ORIGIN 


1 The graphics coordinate system 


The graphics coordinate system is shown in fig. 6.1. The origin, the (0,0) point, 
is at the bottom left hand corner of the screen ‘page’. The horizontal or x-axis 
runs from 0 to 640 units. The vertical or y-axis runs from 0 to 400 units. 

The units used in the graphics system are called pixels. A pixel is essentially 
the smallest possible element making up a ‘picture’; it is a dot used to form 
points, lines, etc. We used the pixel units to define the position of points in the 
graphics system. 


2 PLOT and PLOTR for plotting points 


PLOT and PLOTR are used to plot points, i.e. to ink in points with respect to the 
graphics coordinate system so they are visible on the screen. 
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400 pixels 


640 pixels 


Fig. 6.1 The graphics coordinate system. 


e 
(500,350) 
(0,200) 


e (200,200) 


(320,0) (600,0) 


{ 


Fig. 6.2 The PLOT x, y command for plotting points with respect to graphics origin. 
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The command, 
PLOT x,y [ENTER] 
plots a point with respect to the graphics origin, i.e. x pixel units along the 
x-axis and y pixel units along the y-axis. For example (see fig. 6.2); 


PLOT 0,0 . . . inks in the point (0,0) at the origin 
PLOT 320,0 . . . plots a point half way along the x-axis 
PLOT 200,200 . . . plots a point located 200 units from the origin along 


the x-axis and then 200 units vertically upwards. 

The command, 
PLOTR xr,yr [ENTER] 
plots a point relative to the current graphics cursor position. For example, 
suppose we have set the graphics cursor at the absolute point (200,100) by the 
command 
PLOT 200,100 [ENTER] ... point A in fig. 6.3 
then to plot a second point a further 300 units away in the x direction and 190 
units in the y we can use, 
PLOTR 300,190 [ENTER] ... point B in fig. 6.3 


Fig. 6.3 The PLOTR xr, yr command for plotting points relative to the last cursor position. 


3 DRAW and DRAWR for drawing lines 


The command, 

DRAW x,y [ENTER] 

draws a straight line on the screen from the current graphics cursor position to 
the absolute position specified by x,y. For example, suppose we set the graphics 
cursor at the origin by the command, 
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PLOT 0,0 [ENTER] 

then the command, 

DRAW 250,300 [ENTER] 

draws the line from (0,0) to (250,300), i.e. line OA in fig. 6.4 


Fig. 6.4 The DRAW x, y and DRAW xr, yr commands for drawing straight lines. 


The ‘relative’ DRAW command, 
DRAWR xr,yr [ENTER] 
draws a line from the current graphics cursor position to a point a further xr 
units away in the x-axis direction and yr units in the y-axis direction, e.g. 
DRAWR 250,—100 [ENTER] 
draws the line AB in fig. 6.4. 

The following two programs illustrate the application of the PLOT, DRAW 
and DRAWR graphics keywords. 

This program ‘draws’ the triangle shown in fig. 6.5. 


10 REM &xX* Drawing a triangle xxx 
20 CLS 

30 FLOT 0,0 

40 DRAW 3SoOG,0 

~2Q DRAWR ©, 406 

69 DRAW O,0 
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Pee ee 


ie a, 


Fig. 6.5 Drawing a triangle. 


This program allows you to draw any size of rectangle, with the lower left- 
hand corner at the origin (0,0) and with dimensions input from the keyboard. 


16 
2O 
“aC 
40 
oO 
6 
70 
an 


90 


REM XXX Drawing a rectangle xxx 

REM «xk Dimensions input from keyboard *x 
CLS 

FLOT ©, 0 

INFUT “Enter length (not exceeding 630) "51 
INFUT “and height (not exceeding 390) "sh 
CLS 

DRAW 1,0 

CRAWR ©,h 


100 DRAWR ~1,0 
110 DRAW 6,0 
iz GOTO 120 


4 ORIGIN 


The graphics coordinate system origin can be changed by the command, 
ORIGIN, X,Y, [ENTER] 

which will set the new origin at the point X pixel units horizontally and Y pixel 
units vertically from the original (0,0) point at the bottom left-hand corner of 
the screen page. 
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Fig. 6.6 Changing the position of the origin using the command ORIGIN X, Y. 


For example, the command 

ORIGIN 320,200 [ENTER] 

will set a new origin at the centre of the screen. The PLOT and DRAW 
commands will then plot points and draw lines with respect to this new origin, 


e.g. see fig. 6.6. 

PLOT —320,0 [ENTER] . . . plots point K 
DRAW 320,0 [ENTER] .. . draws the new x-axis 
PLOT 0,—200 [ENTER] . .. plots point L 
DRAW 0,200 [ENTER] . . . draws the new y-axis 


6.3 DRAWING AND LABELLING SOME BASIC FIGURES 


In this section we use the basic graphics keywords to draw some common 
geometrical figures. We combine these drawings with showing how we may 
attach character labels using the following screen and graphic cursor 
commands: 


(1) LOCATE (column number, line number) ... used to locate the 
screen character cursor to a given column-line position on the screen 
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— > Column number 


6 8 10 12 14 16 18 20 |(a) mode O 
1 20 columns by 25 lines 


(b) mode 7 
40 columns by 25 lines 


Line 


Fig. 6.7 Column-row structure for screen modes. Used for screen cursor LOCATION and also 
for defining WINDOW dimensions and position (see section 6.5). 
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In mode 0 the screen is considered as divided into 20 columns and 25 lines or 
rows (see fig 6.7(a)). Thus the command, 
LOCATE 12,15 [ENTER] 
places the screen cursor 12 columns across the screen and 15 lines down the 
screen, so if we followed this command by, 
PRINT “*” [ENTER] 
the star symbol (*) will be displayed at this position. 
In mode 1, the normal mode, the screen is divided into 40 columns and 25 
lines, so 
LOCATE 20,20 [ENTER] 
PRINT ‘*****” [ENTER] 
will display ***** starting at column 20, line 20, as shown in fig. 6.7(b). 
Mode 2, the high resolution mode, is considered to be divided into 80 
columns by 25 lines (see fig. 6.7(c)). 


(2) MOVE and MOVER 
Just as LOCATE is used to position the screen character cursor, the keywords 
MOVE and MOVER are used to position the graphics cursor. 

MOVE x,y positions graphics cursor to the point x pixels units horizontally 
and y pixel units vertically with respect to the graphics origin. 

MOVER xr,yr positions the graphics cursor xr and yr pixel units from the 
current graphics cursor position 

MOVE and MOVER are essentially identical to PLOT and PLOTR but 
without actually plotting the point. 


(3) TAG is used in conjunction with MOVE and MOVER to attach or ‘tag’ a 
character string to be displayed starting at a specific graphics coordinate 
location. For example, 
MOVE 320,200 [ENTER] 
will position graphics cursor at the centre of the graphics system. 
TAG [ENTER] 
will now direct any subsequent display to start at this position, so 
PRINT “‘centre-point’; [ENTER] 
would cause centre-point to be displayed starting at the graphics position 
320,200. Note the PRINT statement should be terminated by a semi-colon (;). 
If this is omitted the control character > | will be displayed following the 
string. 

TAG is cancelled by TAGOFF. 


Drawing some common figures: program examples 


(1) The following program ‘draws’ the four basic types of triangles. LOCATE is 
also used to label the drawings. 
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=o REM ¥€kX Drawing Triangles xxx 
10 CLS 
20 PLOT 6, 200 
BO DRAW 640, 200 
40 FLOT 326,0 
SO DRAW 220, 400 
60 LOCATE 5,12 
7O PRINT "Right-angled" 
BO PLOT 16,240 
90 DRAWR 250,0 
100 DRAWR ©, 156 
110 DRAW 10, 246 
120 LOCATE 25,12 
130 FRINT "Scalene" 
140 PLOT 740, 240 
150 DRAWR 200, 0 
160 DRAWR -140, 150 
L70 DRAW 340, 240 
186 LOCATE 3,23 
190 FRINT "Obtuse” 
200 PLOT 30,60 
210 DRAW 140,60 
220 DRAWR 150, 100 
230 DRAW 20,60 
240 LOCATE 25,23 
250 PRINT "Isosceles" 
260 FLOT 250,460 
270 DRAWR 200, 0 
280 DRAWR -100, 125 
290 DRAW 350, 60 


On running the program you will obtain the display shown in fig. 6.8 
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(2) This program displays regular polygons (many-sided figures). On running 
the program you are asked to enter the number of sides. Try running the 
program. With n=3 you will obtain a triangle; n=4, a square; n=S, a pentagon; 
n=6, a hexagon (see fig. 6.8), and so on. If you choose a high value of n, say 


over 30, the figure will closely resemble a circle. 


10 REM XXX drawing polygans xkxx* 

20 CLS 

30 INFUT “Enter number of sides"sn 
40 ORIGIN 320, 200 

20 FLOT 150,0 

60 FOR s=1 TO n 

79 x=150xCOS (2KFIxks/n) 
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BO y=15S0xkSIN(2kFPIks/n) 
90 DRAW xay 

100 NEXT 5s 

110 LOCATE 17,12 

120 FRINT "n ="sn 


LAA 


Right-angled Scalene 


ZILA 


Obtuse Isosceles 


Fig. 6.8 Display produced by triangle program. 


Fig. 6.9 Display produced by polygon program for n = 6. 
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(3) This program demonstrates the use of MOVE. It begins by drawing a square 
of side 20 with the left-hand corner at the origin. You can then ‘MOVE’ the 
square to be drawn at any other position within the graphics coordinate system. 


10 REM kkk MOVE dama xxx 
20 CLS 
20 MOVE 0,0 
40 DRAWR 0,20 :DRAWR 20,0 
a0 DRAWR 0, -20: DRAWR ~-20, 0 
69 INFUT "Enter distance x to be maved"s:x 
7O INFUT "Enter distance y to be moved"sy 
80 MOVE xay 
90 GOTO 4% 
(4) This program can be used for drawing ellipses or circles. 
iG REM XXX Drawing an ellipse xxx 
20 CLO:ORIGIN 320, 200 
20 INFUT"length af semi-major axis"sa 
40 INFUT" eccentricity" se 
30 b=exka 
60 FOR x=-a TO a 
70 y=b/axkSQR (av eex 2) 
80 FLOT nay 
90 FLOT xany 
LOG NEXT x 
Enter in the length of the semi-major axis and the eccentricity (which is | for 
circles) and then the program will plot the ellipse. A typical display is shown in 
fig. 6.10. 
(5) The following two programs attempt to draw in perspective. The first one 
draws a box (see fig. 6.11(a)), and the second a cylinder (see fig. 6.11(b)). 
10 REM &X*X Drawing a box or cuboid xK*x* 
LS CLS 
20 FLOYT S30, 50 
30 DRAWR 100,0:DRAWR ©, 10d 
40 DRAWR -100,0: DRAWR O,-100 
SO MOVE 150, 50 
60 DRAWR 71,71: DRAWR ©, 100:DRAW 156,150 
70 MOVE So, 150 
80 DRAWR 71,71: DRAWR 100,06 


10 REM Xk Drawing a cylinder xxx 
20 CLS:ORIGIN 320, 300 

30 INFUT "Radius of cylinder"sa 
40 INFUT “and height"sh 


a0 CLS 
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60 FOR x=-a TO a 

7O y= O, SxS0OR Cav Bw 2D 
80 FLOT xay 

90 FLOT “acy 

100 NEXT x 

110 OQRIGIN 320, 206—-h 
120 FOR x=-a TO a 

120 y= GO. SxS0R (av S-x 72) 
140 FLOT xay 

130 FLOT x,-y 

160 NEXT x 

170 MOVE -a,O:DRAW ~-a,h 
180 MOVE a,O:DRAW a,h 


Fig. 6.10 Display produced by ellipse program. 


(a) i (b) =) 


i=} o 


Fig. 6.11 Displays produced by (a) box and (b) cylinder programs. 


Basic Graphics, Drawing and Plotting 91 
6.4 APPLICATIONS TO CURVE AND WAVE PLOTTING 


We can also use numerical or mathematical expressions rather than just pure 
numbers in PLOT statements, in much the same way as used in the last section 
to trace out an ellipse. This allows a direct and very easy way of plotting curves 
of mathematical equations, functions and waves. 

The following program examples illustrate how this is done. 


1 Sketch of a parabola 


Ter 


_ 


Plot of a parabola 


Fig. 6.12 Display obtained on running parabola program. 


The program listed below plots the curve of the parabola y=x* over the range 
—20<x<20. Note that the origin has been moved to the centre of the horizontal 
axis (see line 40) and a scale magnification factor of 16 has been used for x 
values (see line 90). The x and y axes are drawn in using DRAW statements and 
the actual plotting is accomplished by the FOR loop (lines 100 to 130). 

The display obtained on running the program is shown in fig. 6.12. 


10 REM Xxx Farabola plot xxx 
29 CLS 

30 FRINT "Flot of a parabola" 
40 ORIGIN 320,0 

30 FLOT -320,0 
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60 DRAW 320,0 

70 FLOT 0,0 

80 DRAW ©, 400 

90 “xscale=16 

100 FOR x=-20 TO 20 

110 y=x%Xx 

120 PLOT xxXxscale,y 

130 NEXT » 

140 MOVE 10,360:TAG:FRINT “y=x"2"3 
150 MOVE 300, 20:FRINT "x's 
160 GOTO 160 


Note the ‘Ready’ caption has been removed from the display by the inclusion 
of line statement 160. To ‘break’ program execution and return the cursor to 
the screen, press the ESC key twice. 


2 Drawing spirals 


The following program plots two spirals, the first ‘travelling inwards’ and the 
second ‘growing outwards’. The tightness of the spirals is governed by the value 
given to nin line 50. The number of spiral turns is governed by the end value of s 
in line 140. On running the program the first spiral is displayed (see fig. 6.13). 
This is followed by a short delay and then the plot of the second spiral is 
displayed. 


——eee 


cece 
eoee ee 
oe? Ore, 


Fig. 6.13 Display from first part of ‘Drawing spirals’ program. 


10 
moO 
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REM xXx Drawing spirals XxX 
CLS 
ORIGIN 326, 200 


40 FRINT "Spiral travelling inwards" 
SO n=100 

60 FOR s=0 TO 400 

7O “x= BOOXKEXP (-s/n) KCOS (C2KXFIkKs/n) 

BO y= BOOKEXF (-s/n) ¥SIN(C2KFIXS/n) 

9O FLOT way 

100 NEXT s 

1190 FOR delay=1 TO SO00OsNEXT delay 
120 CLS 


120 


FRINT "Spiral growing outwards" 


140 FOR s=0 TO 400 


150 


x= SKXEXFE (s/n) xkXCOS(2KFIXs/n) 


160 y= SKEXF (s/n) XSIN(2KFIks/n) 


170 


FLOT x.y 


180 NEXT s 


3 P 


lotting sinewaves: Fourier analysis illustration 
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Although an advanced topic, readers might be interested in trying this program 
which demonstrates the power of the Amstrad graphics. 
The program illustrates graphically an example of an application of a famous 
theorem known as Fourier’s theorem. The latter effectively states that any 
periodic waveform can be considered to be made up a series of sinewaves 
whose frequencies are multiples (harmonics) of the waveform frequency. For 
example, the unit amplitude square wave shown in fig. 6.14(a) can be expressed 
as a series of cosine waves, i.e. 
square wave, y=“ [cos x—'4 cos 3x+¥5s cos Sx—% cos 7x+. . .] 


c y 


Fig. 6.14 Fourier analysis of a square wave: wave can be considered as made up of a number of 


cosine 


waves. (a) Square wave. (b) Fundamental, third and fifth harmonic components. 
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The first three component waves of the series are: 


Ym COS X . .. the fundamental 
44n COS 3x .. . the third harmonic 
Yon COS 5x . .. the fifth harmonic 


10 REM &xx Fourier Tllustration xxx 
20 CLS 

20 ORIGIN 0,200 

40 PLOT 0,0 : DRAW 600,0 

SO c=4/F I 

60 DEG 

790 FOR x=i TO 600 

BO y=ZOxkKcKCOS (x) 

90 PLOT xay 

100 NEXT x 

110 ORIGIN 0,200 

120 FLOT 0,0:DRAW 600,0 

130 FOR x=1 TO 600 

140 y=S0xk0k (COS (x) -1/3xXC0S (3kx) ) 
150 FLOT xay 

160 NEXT x 

170 ORIGIN 0,100 

180 FLOT ©0,0:DRAW 600,6 

190 FOR x=1 TO 600 

200 y=SOxkok (COS (x) -1/2xXC0S5 (3x +1/75KCO0S (Skx ) 
210 PLOT xay 

220 NEXT x 


The program plots out three waveforms: 

the fundamental (see fig. 6.15(a)) 

the sum of the fundamental and the third harmonic (see fig 6.15(b)) 

the first 3 terms of the Fourier series, i.e. sum of the fundamental and third and 
fifth harmonics (see fig 6.15(c)). 

Try running the program and then modifying it to include further terms, e.g. 
the 7th, 9th, etc. harmonics, and investigate how accurately a square wave can 
be represented by means of a given number of Fourier components. 


6.5 USING WINDOW 
The CPC464 computer has the very useful facility of defining areas of the 


screen—i.e. WINDOWs—which we can use to send data for display in a given 
area. 
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Fig. 6.15 Display produced by ‘Fourier Illustration’ program. 


A window can be created using the statement, 
100 WINDOW #n, left col.no., right col.no., top line no., bottom line no. 
where #n defines the internal channel which we select to send our PRINT output 
data to the WINDOW; » can take the values 1, 2, 3, 4,5, 6 or 7 


left col. no. . . . column number defining left-hand side of window 
right col. no. . . .column number defining right-hand side of window 
top line no. . . . line number defining top of window 

bottom line no. . . . line number defining bottom of window 


For planning your window size and position use the column-line grids for 
modes 0), 1 and 2 given in fig. 6.7. 

The following two programs illustrate how windows are defined and how 
data may be directed to a given screen window. 

The first program creates 4 different size windows when working in mode 1, 
as shown in fig. 6.16. If you are working with colour you will note that each 
window has its own page and pen colour. The PRINT #n, statements are also 
used to direct output display to the desired windows. 


10 REM ¥x** Window demo Kx 

15 REM ** Creation of 4 windows #¥* 
20 CLS 

30 BORDER © 

49 WINDOW #1,1,10,14,25 
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50 FAPER #1, 5:CL5 #1 

60 PRINT #1, “window 1" 

70 WINDOW #2,11,40,13,25 

8O FAFER #2,1:CLS #2 

90 PEN #2,3 

100 PRINT #2:FRINT #2, "window 2 here" 
110 FRINT #2 :PRINT #2 

120 FOR n=1 TO 20 

130 PRINT #2, CHRS (250) ; 

140 NEXT n 

150 WINDOW #2,1,20,1,13 

160 FRINT 42, "Window 3 here 
170 PAPER #3, 2:CLS #3 

180 FEN #3, 

190 PRINT #3, "Window 3 here" 
200 WINDOW #4,21,40,1,13 

210 FRINT #4, "Window 4 here" 
220 GOTO 220 


Window 3 here Window 4 here 


Window 2 here 


RAR RARRAARRAAR AAR AA 


Fig. 6.16 Display produced by ‘window demo’ program. 


The second program creates two WINDOWs—one for outputting a table of 
results and the other alongside for plotting a graph of the results. Note that the 
high resolution mode, mode 2, is used for the results table display. 
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10 REM *xxX window application demo xXx 
20 REM * results table + graph display x 
30 CLS 


40 MODE 2 
SO WINDOW #1,1,20,1,25 
60 PRINT #1,".t agi ago 


70 PRINT #1 

80 FOR t=O TO 5 STEF 0.25 

90 PRINT #1,USING "#.##"at; 
100 PRINT #1, TAR (8): INT (400k (1-EXF (-t))) 
110 NEXT t 

120 WINDOW #2, 21,80,1,25 

130 ORIGIN 200,90 

140 FLOT ©0,O:DRAW 400, 6 

150 FLOT 0,0:DRAW 0,400 

160 FOR t=0 TO 5S STEF 0.25 
170 FLOT BOxt, 400% (1-EXP (-t)) 
180 NEXT t 

i190 GOTO 190 


The display obtained on running this program is shown in fig. 6.17. 


oor” 
° 
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Fig. 6.17 Display of table of results and graph plot produced by the second ‘window demo’ 


program. 
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6.6 PLOTTING YOUR OWN GRAPHS 


In this final section three examples of programs that can be used to plot your 
own graphs are presented. 


1 Program to plot x,y points with data in DATA statements 


In this program the data for each x,y point is included in pairs in the DATA 
statements at lines 150 to 180. A FOR loop is used to both READ the x, y values 
and PLOT the respective points. Both x and y axes are also drawn and labelled. 
The range of points is limited in this case to the graphics coordinate system, i.e. 
x from 0 to 640 and y from 0 to 400. 


10 REM &*Xx To plot a graph *xk* 

20 CLS 

30 REM &x*X READing and FLOTting the points #xkx 
40 FOR n=i TO 14 

20 READ xay 

60 PLOT way 

70 NEXT n 

80 REM XX drawing «x axis Xx 

90 MOVE 0,0: DRAW 636,06 

160 MOVE 600,20: TAG:FRINT "x's 

110 REM ¥X drawing y axis ¥xX 

120 MOVE ©, 0: DRAW ©, 400 

L320 MOVE 20, 370sFPRINT "y's 

140 REM 44&xX x,y data for the point xxx 
L150 DATA 10, 30,50,100, 102, 168,160, 225 
160 DATA 210,270,275, 205, 254, 322,401, 200 
170 DATA 445,271,470, 226,515,174, 552, 105 
180 DATA 372,60,595,15 


The graph plot obtained on running this program is shown in fig. 6.18. 


2 Program to plot x,y points with data INPUT from keyboard 


This program is similar to the first but allows points to be INPUT directly from 
the keyboard. After completing your entries, input —999. This will break the 
input loop and immediately commence plotting. [Note arrays considered in the 
next chapter are used to store the x,y data. ] 


10 REM X*k To plot a graph Xxx 
2£O REM *4¥* x.y values INFUT from keyboard xxx 
20 CLS 
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40 DIM «x (50) :DIM y(So) 
SO n=1 
60 INFUT "x value of point" sx (n) 
70 IF x(n)=-999 THEN 120 
BO INFUT "y value of point"sy(n) 
90 PRINT 
100 n=n+l1 
110 GOTO 60 
120 CLS 
120 REM XX drawing » axis xx 
140 FLOT 0,0:DRAW 630,0 
150 MOVE 600,20: TAG:FRINT "x's 
160 REM *k* drawing y axis *xk 
170 FLOT ©,0:sDRAW 0, 400 
180 MOVE 20, 370sFRINT "y's 
190 REM Xxkxk plotting the point *xx 
200 FOR t=1 TO n-1 
210 FLOT x (td,yt) 
220 NEXT t 
2250 GOTO 220 


Fig. 6.18 Output display for first ‘To plot a graph’ program. 
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3 x-y graph plotting with automatic scaling 


This program has an automatic scaling facility so we are not restricted to the 
range 0-640 for x and 0-400 for y. As the x-y data is being entered the values 
are stored and IF statements are used to find the maximum and minimum 
values. This information is then used to set the scale factors for x and y and the 
position of the origin. 


10 REM XxXxk Graph plotting xxx 
20 REM kk Automatic scaling ¥*x 
30 xmin=1E+10s ymin=1E+10 

40 xmax=-1E+10: ymax=-1E+10 

SO DIM «(SO)8 DIM y (So) 

60 CLS 

70 n=] 

80 INFUT "x value of point": (nd 
90 IF x (nd=-999 THEN 180 

100 INFUT "y value of point"sy(n3 
110 PRINT 

120 IF x(n) sxmax THEN xmax=x (nn) 
130 IF yin) symax THEN ymax =y (nr) 
140 IF x(ndexmin THEN xmin=x (n) 
150 IF y(nd<ymin THEN ymin=y (nm) 
160 n=n+l1 

170 GOTO 8O 

180 xf=640/ (xmax-xmin) 

190 yf=400/7 (ymax-ymin) 

200 ORIGIN -xminkxf,-yminkyf 
2ilo CLS 

220 FOR t=1 TO n-i 

200 FLOT x(t) kxf,y (bt) kyf 

240 NEXT t 


Exercise problems 6 


(1) Display the following on the screen: 
(a) a rectangle with corners at (50,50) , (50,300) , (500,300) and (500,50) 
(b) a right-angled triangle with a base of 400 units and a height of 250. 


(2) Write programs to 

(a) draw a circle centre (320,200) and radius 150 

(b) draw an ellipse centre (200,200), semi-major axis length 100 and 
eccentricity 0.7. 
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(3) Write a program to display the ‘house’ shown in fig. 6.19. 


Fig. 6.19 Drawing for exercise problem 3. 


(4) Write programs to plot the following functions: 
(a) y = cos x from x = —320° to + 320° 
(b) y = 400e* from x = 0 to 5. 


(5) Write a program that will plot the following points: 
(0,30) , (30,75) , (60,120) , (90,156) , (120,198) , (150,224) , (180,237) , 
(210,228) , (240,201) , (270,150) , (300,126) , (330,70) , (360,25). 
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APPLICATIONS OF ARRAYS AND FILES 
IN PROGRAMS 


7.1 INTRODUCTION AND SUMMARY 


The subject of arrays and files is very often considered as rather advanced and 
really the domain of the more experienced programmer. However, with 
CPC464 this is really not so—arrays, which are essentially easy-to-access 
storage ‘boxes’ for the values we wish to enter, use and process in our 
programs, and files, which allow us to keep permanent records of input data, 
results, etc., are very easy to use. They provide much greater scope for writing 
more interesting programs and allows us to extend our activities to a very much 
wider field of applications. 

In this chapter we first explain the meaning of arrays and explain how they 
may be generated using the DIM statement. We then consider how they may be 
used: how data may be fed in, processed and output. We consider also 
application to sorting numerical and alphabetic information in order. Finally 
the idea of a file for keeping permanent records is introduced and we explain 
how a file can be created and accessed using the cassette datacorder of the 
Amstrad CPC464. 


7.2 ARRAYS: THEIR MEANING AND DECLARATION USING THE DIM 
STATEMENT 


So far we have used individual variables in our programs. Each variable we 
used was given a name—its identifier—and this identifier was used to identify a 
storage location, a ‘box’ or ‘container’, to store the data assigned to the variable 
at a convenient place in the computer’s memory. An array is used in the same 
way and allows us to declare a whole number of storage locations using a single 
DIMension line statement. 

Fig. 7.1 provides a pictorial representation which should help you in 
understanding the concept of an array as a means of storing not one but several 
different items of data. Every element in the array can be used to store data and 
can be individually accessed. 
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Fig. 7.1 Pictorial representation of arrays: each ‘box’ in the array can be considered as an individ- 
ual storage location for an array element variable. (a) Example of a one-dimensional array, 
generated using the DIMension statement: 100 DIM x (10). (b) Example of a two-dimensional 
array, generated using the DIMension statement: 120 DIM x (4,5). (c) Example of a three- 
dimensional array, generated using the DIMension statement: 140 DIM A (3,3,2). 


Each array we use in a program is given its own general identifier, just as we 
assign names or identifiers to variables. Thus we can give for an associated 
group of variables a collective name—the array identifier—rather than a whole 
list of different identifiers. We can easily refer to an individual element (i.e. 
storage location or ‘box’) by the array identifier plus number subscript(s), the 
number(s) specified within the brackets in fig. 7.1 

The use of arrays saves a great amount of writing space in preparing 
programs and is very useful for inputting, processing and outputting large 
volumes of information. 

Arrays are created in programs using the DIMension statement: 
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100 DIM array identifier (N) . . . for 1-dimensional arrays 
200 DIM array identifier (N1, N2) . . . for 2-dimensional arrays 
300 DIM array identifier (N1, N2, N3) . . . for 3-dimensional arrays 


The numbers N, NJ, N2, N3 within the brackets specify the overall size or 
DIMensions of the array, i.e. the total number of elements (storage locations 
for variable values) in the array. When the computer ‘sees’ a DIM statement it 
puts aside memory space for the array elements as specified by the numbers 
within the brackets. 

Arrays can be defined for numeric data (real and integer) and for strings. The 
array identifiers for integer data must end with the % symbol and for strings 
with the $ sign, just as for ‘normal’ variables. 


Examples of the DIM statement 


(1) One-dimensional arrays 
The statement, 
100 DIM x (10) 
defines a one-dimensional array. The array identifier is x and the ‘dimension’ of 
the array is 10. A dimension of 10 creates 10+ 1=11 elements (see fig. 8.1(a)). 
Each element is identified by the array identifier and a subscript or index 
enclosed within brackets. The subscripts run from 0 to the number specified in 
the DIM statement. Thus the above statement creates the following 11 
elements: 
x(0) , x(1) , x(2) , x(3) , x(4) , x(5) , x(6) , x(7) , x(8) , x(9) and x(10). 
for ‘number’ data. 

The statement, 
110 DIM name$ (20) 
would create a string array, identifier name$, dimension 20 and therefore 
consisting of 20+ 1 elements for string variable data storage. 


(2) Two-dimensional arrays 

The statement, 

120 DIM x (4,5) 

creates a two-dimensional array for numeric (real) variable data consisting of a 
total of (4+1) x (5+1) = 30 elements (see fig. 7.2 (b)). In this case each 
element is identified by a pair of subscripts, the first of which can be thought as 
specifying the row and the second as specifying the column of the element in the 
array. 


(3) Three-dimensional arrays 

The statement, 

140 DIM A (3,3,2) 

creates a three-dimensional array, identifier in this case A, which consists of a 
total of (3+1)x(3+1)x(2+1)=48 elements for real variable data. 
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7.3.5 PROGRAM EXAMPLES ILLUSTRATING USE AND APPLICATION 
OF ARRAYS 


Basically arrays are used, just like individual variables, for storing and 
processing information. Values for the array elements can be input from the 
keyboard using the INPUT statement or READ in from DATA statements 
within the program. 

The following examples illustrate some basics concerning the handling and 
application of arrays 
(1) This example illustrates how data can be READ into the array elements and 
how the stored data in the elements may be accessed and displayed 


10 REM XX Array demo 1 Xxx 

20 REM * READing DATA into an array xX 
30 CLS 

40 DIM number (10) 

50 FOR i = 9 TO 10 

60 READ number (i?) 

70 NEXT i 

BO REM &® Displaying contents of array * 
90 FRINT “item no.", "number" 

100 FOR i = 6 TO 160 

i110 PRINT i,number (i) 

i120 NEXT i 

200 DATA 21,72, 24,45,51,67,78,83,90,11,212 


Line 40 defines a 10+ 1 element array. The FOR loop, lines 50 to 70, READs in 
data to each of the 11 array elements. The display of this information is 
produced by the FOR loop, lines 100 to 120. Thus on running the program the 
following list will be displayed. 


item no. number 
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(2) This second example illustrates the use of both numeric and string arrays, 
defined respectively at lines 40 and 45. Once again FOR loops are used to READ 
in and PRINT out the array element data 


10 REM *** Array demo 2 XxKX 

2O REM * READing DATA into an array 
30 CLS 

40 DIM number (10) 

45 DIM namet (10) 

20 FOR i = © TO 10 

60 READ name#(i),number (1) 

70 NEXT i 

80 REM * Displaying contents of bath arrays 
90 FRINT “item no."," name", "number" 
935 FRINT 

100 FOR i = 0 TO 16 

110 FRINT i,name$(id,number (i) 

120 NEXT i 

200 DATA spert car ,21,saloon 1L,72 
210 DATA saloon 2L,74,saloon 3L,45 
220 DATA saloon XL,31,estate 1.51,67 
230 DATA estate 3L,78,hatch-back, 83 
240 DATA tyre T1,.90,tyre t2,11 

250 DATA battery, 212 


RUN [ENTER] 


item na, mane numb er 
O sport car od 
saloon IL 7S 
= saloon 2L =4 
a saloon SL 45) 
4 saloon XL oil 
a estate 1.5 7 
& estate 78 
7 hatch-back Bs 
8 tyre Tl 9O 
9 tyre te 11 


1 battery 213 
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(3) This program is a modification of (1) and (2) to include a full list of 3 items 
(name, number and price) and also to work out the total value of the items. 

Three arrays price (10), number (10), name$(10) are defined at lines 35, 40 
and 45 respectively. A FOR loop and the READ statement is used to feed in 
values to the respective elements from the DATA statements 200 to 250. The 
FOR loop at lines 100 to 120 PRINTs out the information and at the same time 
makes a continuous calculation of number (i) x price (7) (see line 115) to 
determine the total value (sum) of all items on the list. 


19 REM ¥€kxX Array demo 2 XXX 

20 REM &* READing DATA into an array * 

20 CLS 

35 DIM price (lo) 

40 DIM number (10) 

435 DIM names (10) 

sO FOR i = Oo TO 10 

60 READ name$(i),number (i),price(i) 

70 NEXT i 

80 REM kX Displaying cantents of all arrays * 
o sSumeO 

90 PRINT “item no."," name", "number"; TAKR(3S) "price" 
95 FRINT 

100 FOR i = 0 TO 16 

110 FRINT i,name$(id,number (i); TAB(Z4) price (i? 
115 sum=sumtnumber (i) kprice (i) 

120 NEXT i 

130 FRINT 

140 FRINT "Tetal value ="ss5um 

200 DATA sport car ,21,5450,saloon 1L,72, 3985 
210 DATA saloon @L,24,5675,saloon 3L,45, 7950 
220 DATA saloon XL,51,11250,estate 1.5L,67, 5950 
220 DATA estate SL,78,8750,hatch-back, 83, 6980 
240 DATA tyre T1,90,23.50,tyre t3,11,78.90 
200 DATA battery, 212,326.55 


RUN [ENTER] 


item no. name number price 
Go spart car 21 450 

saloon iL 72 2935 
= saloon 2L 24 2675 
a saloon 3L 45 7950 
4 saloon XL ai 11256 
as 


estate 1.5L &7 29S 


r 
~ 
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& estate SL 78 8736 
7 hatch—-back 82 6980 
8 tyre Tl 9Q Dave 
> tyre t2 ii 38.9 
10 battery 212 26.55 


Total value = 2196601.5 
is the display obtained on running the program. 


(4) The following example illustrates the READing in and display of numerical 
data using a two-dimensional array. Once again we use FOR loops but in this 
case one FOR loop within another one. The ‘i loop sets the row while the ‘/’ 
loop runs across the row reading the various columns. Try running the 
program. You will obtain 6 rows (i.e. 5+1) of 5 columns (4+1) of the data 
contained in the DATA statements 


10 REM &xkxX Two-dimensional array example xxx 
20 CLS 

20 DIM «(S,4) 

40 REM *k READing in DATA kx 

30 FOR i = 0 TO 5 

60 FOR j = © TO 4 

70 READ x (i,j) 

80 NEXT j 

90 NEXT i 

1600 REM XxX Display of Array Element values kx 
1190 FOR i =o TO 5 

120 FOR j o TO 4 

130 FRINT «(is Jj)s 

140 NEXT j 

150 PRINT 

160 NEXT i 

200 DATA 74.6,82.8,67.8,21.8,63.7 
210 DATA 90.8,76.4,62.7,25.8,41.4 
220 DATA 78.3,55.5,45.3,67.2,11.9 
230 DATA 66.8,98.5,72.5,81.9,45.8 
240 DATA 76.5,435.9,735.6,64.8,92.7 
200 DATA 21.7,34.6,83.7,61.5,56.4 


(5) Here is an example of the use of arrays with strings: a simple French— 
English vocabulary test. 

Arrays are used to store the English and corresponding French words. On 
running the program you are asked to type in the French word for a given 
English one. The computer tells you if you are right. If you are wrong, the 
computer gives the correct French word. 

Trying running the program and then perhaps extend it for more words. 
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10 REM ¥kxX English to French test xxx 
20 REM *¥k READing in English words xx 
30 CLS 

40 DIM English#(&8) 

50 FOR i = 0 TO 8 

60 READ English#(i> 

70 NEXT i 

80 REM XxX READing in French words xx 

90 DIM French#(8) 

1900 FOR j = 0 TO 8 

110 READ French#(j) 

120 NEXT 3 

120 N=0O 

140 IF m?8 THEN END 

150 FRINT “Enter French word for "sEnglish$(N) 
160 INFUT answer $ 

170 IF answer = French#(N) THEN 180 ELSE 220 
180 FRINT "Well done, you’re correct" 
190 N=N+1 

200 FRINT 

210 GOTO 140 

2290 PRINT "Sorry, you’re wrong" 

230 FRINT "The French word for " 

240 PRINT English#(Nd3" iss "sFrench#(N) 
250 FRINT "OOOO KOK KKK" 

260 N=N+i1 

270 FRINT 

280 GOTO 140 

270 DATA man,dog,hand, tree, sea,wind 
200 DATA thanks, wine, bread 

310 DATA homme, chien, main,arbre,mer, vent 
329 DATA merci,vin,pain 


7.4 SORTING NUMERICAL DATA IN ORDER 


An important and very interesting application for which the computer is ideally 
suited is in the sorting of data in order. 

The following program segment may be used to sort numerical data in 
ascending order: 


200 REM *xkxX Bubble sort routine xxx 
210 FOR k = 1 TO n-i 

s20 FOR 1l = k+l TO n 

asO0 IF « (1) = x(k) THEN S70 
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o40O temp=x (1) 
SoO x (i) = x(k) 
wo6O x(k} = temp 
S70 NEXT 1 

280 NEXT k 


The data to be sorted is first fed into an array x(”) consisting of elements x(1), 
x(2) .. . x(n). The above routine is then brought into action. It starts by 
comparing the first data item x(1) with its neighbour x(2) and if the first item is 
greater then the two values are ‘swopped’ in position in the array. The 
comparison-swop action then continues with first and third elements and so on 
until the minimum value heads the list, i.e. x(1) stores the minimum value. The 
routine is then repeated with the second item in the list and so on to the last 
term, so at the end of the second sort sequence the first two terms are in order. 
Execution then moves on to the third term etc. and the whole comparison— 
swop action repeated until we finally end up with all elements in ascending 
order. A pictorial representation for the simple case of sorting five values in 
ascending order is illustrated in fig. 7.2. 

The ‘bubble sort’ routine, so called because the data ‘bubbles’ up or down in 
the sort, may be easily changed to sort in descending order. Simply change the 
greater than symbol (>) in line 530 to the less than symbol (<), i.e. 

530 IF x(l) < x(k) THEN 570 

The following program shows the application of the bubble sort method to 

sort 30 numbers contained in DATA statements: 


LO REM €xx* Sorting numbers in order kx 
SO REM ¥* First storing numbers in an array ¥X 
20 DIM x (30) 

40 FOR i = 1 TO 30 

20 READ x (i3} 

60 NEXT i 

70 n=30 sREM no.of terms to be sorted 
80 GOSUB SOO 

SO REM XX display of ordered numbers Xx 
100 FOR i = 1 TO 20 

110 PRINT x (ids 

120 NEXT i 

120 END 

SOG REM *** SORT subroutine xx 

wlO FOR k = 1 TO n-1 

ee2o FOR 1 = k+i TO n 

S30 IF x(1) = x(k) THEN S70 

240 temp=x (1) 

ooo x (1) = x (kK) 


Applications of Arrays and Files in Programs 111 


3660 x(k) = temp 

S70 NEXT 1 

S80 NEXT k 

290 RETURN 

600 DATA 89,34,87,9, 24, 76,12,88,91,10 
610 DATA 9,32,71,94,61,85,8,45, 21,42 
620 DATA 4,87,41,76,42,95,1156,239,97,1 


On running the program you will obtain within 10 or so seconds a display of 
the numbers in ascending order, 1.e. 
148991012... 


Before sort (stored values in array) 


A a a 
s2[ 4126 397 


Before sort: initial position of 
values stored in the array 


x(1) x(2) x(3) x(4) x(5) 


After 1st sort: items 1 and 2 swopped: 
After 2nd sort items 1 and 3 swopped: 
After 3rd sort items 1 and 4 unchanged: 


After 4th sort items 1 and 5 swopped: 


Now begin with 2nd item and 
continue ‘swop’ procedure: 


1st two items now in order, 
continue with swop procedure 
from item 3 


1st three items now in order, 
final swop: 


ff fn 
G7i2el so 4i[ 52) 


SORTED DATA 


Fig. 7.2. Pictorial representation of ‘bubble-sort’ method. 
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7.5 SORTING IN ALPHABETIC ORDER 


It is a straightforward matter to adapt a numerical sort routine to sort string 
variable data (e.g. names) into alphabetic order. 

Firstly the arrays to hold the data must obviously be defined as string variable 
arrays so include the $ sign in the array identifier. Secondly use the ASC 
standard function to convert the first letter of the string variable value to its 
number code. By doing this number comparison may be made. Remember: 
ASC (X$(I)) returns the ASCII code for the first character of the string variable 
X$(I) value; and that these codes are ordered and cover the ranges, 
65,66,...90 for A,B,...Z 
97,98,...122fora,b,...z 

Thus modifying the numeric bubble-sort routine to a form for sorting string 
data in alphabetic order leads to: 


200 REM XX ALFHARETIC SORT subroutine xx 
slo FOR k = 1 TO n-i 

S20 FOR 1 = k+1 TO n 

S30 IF ASC(x#$¢1)9) > ASC (x#(k)) THEN S70 
540 temp$=x $ (1) 

ao xGCl) = x#$ Ck) 

260 x$(k) = temps 

270 NEXT 1 

280 NEXT k 


The following program illustrates its use. Array x$(30) is used to store up to 
30 names, each name being stored in one of the array elements x$(1), x$(2). . . 
x$(30). Since there are only 10 names in our example only 10 elements are 
required. 


10 REM #€&x Sorting in ALPHABETIC arder xxx 
20 REM kK First storing numbers in an array xX 
2a CLS 

30 DIM x% C30) 

49 FOR i = 1 TQ 16 

SO READ x # (i) 

6G NEXT i 

YO m=10O REM na.af names to be sorted 

80 GOSURB Soo 

90 REM «xk display af ordered mumbers x 
LOO FOR i = 1 TQ 16 

110 PRINT x@ tid 

120 NEXT i 

120 END 
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SOO REM xx*k ALPHABETIC SORT subroutine «xx 
si0 FOR k = 1 TO n-1 

S20 FOR 1 = k+l TO n 

osoO IF ASC(x$(1)) > ASC (x#(k)) THEN S70 
240 temp$=x$ (1) 

soo x$#C1l) = xB Ck) 

360 x$(k) = temps 

a7Q NEXT 1 

280 NEXT k 

e970 RETURN 

600 DATA White, Brown, Smith, Jones,Avis 
610 DATA Clark, Yeabsly, Dennis, Mead, law 


On running the program you will obtain the names listed in alphabetic order, 
i.e. 


Avis 
Brown 
Clark 
Dennis 
Jones 
Law 
Mead 
Smith 
White 
Yeabsly 


7.6 USING FILES IN PROGRAMS 


In all our programming work so far we have INPUT data to be processed by our 
program directly either from the keyboard or by using READ statements and 
OUTPUT the required results to the monitor or tv display for a ‘soft copy’ or 
for a ‘hard copy’ to a printer. As soon as the program has been executed all 
keyboard entered data and any intermediate results are effectively lost. How 
can we store, for example, input data on a permanent basis and feed it directly 
into our program when required, rather than using the keyboard or DATA 
statement as the source? How can we store data obtained from one part of a 
program for processing in another (without, of course, using arrays, which, 
although ideally suited to this task, may take up excessive and valuable 
memory space in the computer)? How can we store our output data which may 
be required for subsequent use as input data to another program? 

These problems may be overcome by storing input, output and intermediate 
‘transferable’ data in files in an auxiliary memory device, i.e. on the magnetic 
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tape of a cassette or, if you are lucky enough to have a disc drive unit, on disc. 
We can then, for example, prepare our input data independently, save it on 
tape and ‘read in’ the data when required in program execution. Likewise if we 
wish to save our output ‘PRINT? results we can direct these to be ‘written’ to a 
cassette tape or disc. 

The CPC464 handles sequential files where the individual items of data can 
only be accessed in the order in which they are stored. A sequential file can only 
be examined one element at a time, starting from the beginning. Unlike an 
array, whose individual elements can be directly or ‘randomly’ accessed, data 
in a sequential file cannot. File size, however, is not specified and a file may be 
allowed to expand, within the limits of available memory storage space, to any 
size. 

With these introductory ideas in mind, let us now see how easy it is to use files 
with the CPC464 and its cassette recorder-player. 


To create a file and write to a file on cassette 


(1) Place cassette tape in the CPC464 datacorder and note counter (trip meter) 
reading for future reference. 

(2) To ‘open’ a file ready for writing data to, use a statement of the form, 
100 OPENOUT “name of file’”’ 

(3) To write, i.e. output data, to the file use statements of the form, 

110 PRINT #9, “’strings’’ 

120 PRINT #9, x, y, z 

e.g. 130 PRINT #9, 47.25 

will store 47.25 as the first number item of the file. Note in the Amstrad CPC464 
channel 9 (i.e. #9) is reserved for transmitting information to and from files 
stored on cassette tape. 

(4) Finally you must always remember to ‘close’ your file when all entries are 
completed. This is accomplished by a statement of the form, 

140 CLOSEOUT 


To access and INPUT data from a cassette file 


(1) Place cassette on which file is stored in the CPC464 datacorder and 
preferably wind on to beginning of wanted file. 
(2) To open the file for ‘INPUTing’ from, use the statement, 
150 OPENIN ‘‘name of file” 
(3) To input data from the file, use statements of the form, 
160 INPUT #9,x . . . for numeric data 
160 INPUT #9, x$ ... for string data 
These statements will assign x or for strings x$ the first data element stored 
on the file. 
(4) Finally, you must close your file when you have completed all your input of 
data. This is simply done by the statement, 
170 CLOSEIN 
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Examples: using files 


(1) This basic program demonstrates how to open a new file and output data to 
the file. The second part of the program accesses the file just created and inputs 
the data to the computer from the file and displays the file data on the screen. 


10 REM XXxk Opening a file demo xxx 


20 CLS 
30 FRINT "Cassette in place ?" 
40 FRINT "note trip count number for ref" 


30 FRINT 

60 OFENOUT "data i" 

70 FOR n = 1 TO 20 

BO FRINT #9,1n 

90 NEXT 1 

100 CLOSEQUT 

105 PRINT: FRINT 

110 REM xXx Inputting from file “data 1" KX 
120 FRINT "Rewind cassette to beginning" 
130 PRINT "of file “data 1° just created" 
135 FRINT'then..." 

140 OFENIN "data i" 

ISO FOR m = 1 TO 20 

160 INFUT #9, Xx 

170 FRINT x 

180 NEXT n 

190 CLOSEIN 


Statement 60 opens a new file which we called data 1. Up to 16 characters can 
be used for file names and spaces may be included. Data is written to this file 
using a FOR loop and the PRINT #9, . . . statement (see lines 70, 80, 90). In this 
example we are just outputting the numbers 7 from | to 20. The file is closed at 
line 100. 

The second part of the program (essentially lines 140 to 190) inputs the data 
stored in file data / to the computer and using the simple PRINT statement and 
FOR loop each item is displayed on the screen. 


(2) The second example given below is similar except that the data to be stored 
in the file results / is input from the keyboard (see line 50). Each of the 10 
‘results’ input is saved in the file results 1. 

The results 1 file is opened for ‘reading from’ at line 160. As well as inputting 
the ‘results’ on file and displaying each one on the screen, their sum is 
computed (see line 200). Finally the average of the 10 results is displayed. 
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Lo REM Xk File demo 2 ¥X*# 
2O CLS 
20 OFENQUT "results i" 


40 FOR m = 1 TO 160 

ao INFUT "Recorded result"ix 
60 FRINT #9, x 

70 NEXT n 

80 CLOSEQUT 


100 REM *&*k Inputting from file "results 1" 


KKK 


110 PRINT “Ensure cassette is rewound so file" 


120 FRINT " “results 1° can be accessed 
120 FRINT 
140 FRINT "Results are input an following 
FRINT "the instriuctions..."sFRINT 
OQFENIN "results 1" 
FOR om = 1 TO 16 
INFUT #9, 
FRINT x 
Sum = Sum + ox 
NEXT mn 
1 CLOSEIN 
2 PRINT 
240 PRINT “Average of results ="ssum/10 


a 


(3) EOF function: End Of File 


All files are terminated by an ‘End-Of-File’ character so when in reading data 
from a file this is reached, it can be recognised by the computer and used to 
terminate the reading. The EOF function is very useful in this respect, 
especially, as is usually the case, when we do not know the exact number of 


items in the file. 


Thus rather than using a FOR loop for inputting data from a file we can use 
the WHILE loop with the condition, “WHILE NOT EOF” to control the input. 


For example, the FOR loop in example (2) may be replaced by: 


170 WHILE NOT EOF 
180 INFUT #9, 
190 FRINT x 

2OQO sum = sum + # 
210 WEND 


(4) Here is an example of keeping a telephone directory on file. The first part of 
the program allows you to create the file and enter names and numbers. Last 


‘terminating’ name is zzz. The second half allows you to display the list. 
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RAE Fone moa. File #xX* 
KK Creating list #* 


OF ENQUT "phane list" 
SO INFUT "“surnane 
60 WHILE name. mas 
7O INFUT "surneé 


and phone na. 'gname. mcs 


Dh sccxescay seangs TE 
Koen. hen 


ATE: 


ee | po Pome peee pom ome at C8 gs yon 
amd ohoame mo. smear 


BO FRINT #9, mane. noe 
SO WEND 


list fram File 


Dm pesi tian an 


hae 2 TCS 
BPRGNT mame. ooh ¢ FRONT 
WENT 

CLOSE TN 


HO}, TISUTIOS TCS 


Exercise problems 7 


(1) Write a program which allows you to enter 10 named items and their prices 


from the keyboard and then display a list of the complete set of items and 
prices. 


(2) Modify the above program so that your display contains item, price, 
number of items, sub-total of value (i.e. number X price) and, at the end, the 
complete value of all items. 


(3) Using a two-dimensional array write a program which will display a 
complete table of results for 32 students each having sat the same 4 
examinations. 


(4) Write a program using arrays to store your data and the graphics commands 

PLOT, DRAW, ORIGIN, etc., which can plot an x-y graph to a suitable scale. 
As a guide to forming the program, you might consider the following 

approach: 

(a) Define arrays for the x,y data to be stored, and provide input statement so 

that the data may either be INPUT or READ. 

(b) Input the x,y data for each point to be plotted. 
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(c) Decide on a suitable scale factor and origin. 
(d) Draw in the x and y axes using DRAW statements. 
(e) Plot your points using the PLOT statement. 


(5) Design a program that can accept up to 50 numbers in the range 0 to 100 and 
sort them in numerical order and display the following: 

(a) the maximum, minimum and middle (mode) value 

(b) The data values in the following bands: 

band 1: 0 to 25; band 2: 26 to 50; band 3: 51 to 75; band 4: 76 to 100. 


(6) Write a program that accepts names and phone numbers from the keyboard 
and then prints out the complete name-phone number list. 

(7) Modify the last program so that your print-out of names is in alphabetical 
order. 


SOME PRACTICAL PROGRAMS 


8.1 


This final chapter presents a number of programs for general use. They are all 
simply constructed using the BASIC statements of previous chapters and easy 
to understand. All the programs can be run directly to perform their tasks but 
can also be easily modified to provide any extra facility you might need. 

The programs included cover the following applications: conversion of 
weights, lengths, currency, etc.; production of standard letters, multiple 
copies; checking bills; calculation of tax; interest and return on investments; 


loan repayment calculations. 


INTRODUCTION AND SUMMARY 


8.2.) A CONVERSION PROGRAM FOR COMMON MEASURES 


To convert units 
Xto Y 
multiply by 


Y 


To convert units 
Ytox 
multiply by 


4.0469x10 ° 
2.8317x10 ” 


an 


acres 
cubic feet 


square kilometres 


cubic metres 


247.1 
35.315 


0.3048 


feet 


metres 


3.2808 


4.546 


gallons 


0.7457 


| 


horse power 


litres 


0.21998 


kilowatts 


25.4 


i 


inches 


1.6093 


miles 


millimetres 


0.03937 


kilometres 


0.35402 


: 1 
miles/gallon 


kilometres/litre 


0.56825 


pints 


litres 


0.62137 


0.45359 


pounds 


kilograms 


2.2046 


0.83613 


square yards 


square metres 


1.1960 


1016 
Fig. 8.1 


tons 


kilograms 


Conversion table for some common quantities. 


9.8421x10 * 
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The table of fig. 8.1 summarises the conversion factors for converting some 
commonly used quantities from one system of units (e.g Imperial) to another 
(e.g. metric). Rather than remember these, why not use the following program 
which effects conversions automatically? 


10 REM Xxx Conversion of units pragram Xxx 

20 CLS 

30 FRINT "To convert :" 

40 FRINT "1 gallons to litres...enter i" 

SO FRINT "2 litres to gallons...enter 32" 

60 FRINT "= pounds to kilos...enter 3" 

7O PRINT "4 kilos to pounds...enter 4" 

8O FRINT "S feet and inches to meters...enter S&S 
90 PRINT "6 meters to feet and inches...enter 6" 
100 PRINT "7 degrees C to F...enter 7" 

110 FRINT "8 degrees F to C...enter 8" 

120 INPUT "now enter your choice "gn 

120 PRINT 

1460 ON n GOTO 166,180, 200, 220, 240, 280, 320, 240 


150 PRINT “incorrect entry ": GOTO 120 
160 INFUT "enter no. of galls toa be converted "3x 


170 PRINT x3" galls = "gxk4.546;" litres"sEND 
180 INFUT "enter na. of litres "yx 
190 FRINT xg" litres = "sxkO.21998;" galils":END 


200 INFUT “enter no. of pounds "yx 

210 PRINT xs" pounds = "sxx*O.4536;" kilos":END 
INFUT “enter na. of kilos "gx 

PRINT xs" kilos ="sxxk2.2046;" pounds":END 
INFUT "enter no. of feet "sf 

INFUT "enter no. of inches "si 

260 FRINT £3" feet"sig" inches = "5 

270 PRINT (f4+i/12)%*0.3048;" meters":END 

280 INFUT "enter no. of meters "yx 

290 PRINT x3" meters = "sxxkS.2808;" feet” 

300 PRINT "= "gINT(xk3. 2808) 3" feet"; 

S10 PRINT (x3. 2808-INT (x k3. 2808) )k123" inches":END 
320 INFUT “enter no. of degrees C "sx 


320 FRINT x3" degrees C = "3xk9/S54+323" degrees F":END 
S40 INFUT “enter no. of degrees F "yx 

250 PRINT x3" degrees F = "3 (x-32) 45/93" degrees C":END 
360 END 


On running the program you will first be asked to input the conversion 
required—the program caters for 8 cases but more, of course, may be added. 
After this all you have to do is input the quantity and the conversion is carried 
out immediately. 
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8.3. PROGRAMS FOR CURRENCY CONVERSIONS 


Fig. 8.2 


SES 


Here are two useful programs for converting pounds sterling to other 
currencies and vice versa. 

The first program provides a direct means of carrying out the conversion but 
does require you to enter the exchange rate first. 


16 REM XX Currency caonversian xxx 


2O REM 
ZO CLS 


KKK Short program KX 


40 PRINT "Enter 1 for €toa foreign" 
50 PRINT "Enter 2 for conversion back to €" 
60 INFUT nm 


7O IF 


nee THEN FRINT “incorrect entry":GOTQ 40 


80 FRINTsFRINT 

90 INFUT "Current exchange rate fi="srate 
100 IF n=1 THEN 120 

110 IF n=2 THEN 1506 

120 INFUT "No. of  "“spounds 

130 PRINT "£ "“spoundes" = "spoundstrate 

140 END 

150 INFUT "Amount of foreign currency"s4A 

160 PRINT As" currency = £ "s ROUND (A/rate, 2) 
170 END 


The second program contains all the required data within the program for 18 
European and American countries. On running the program the 18 countries 
and corresponding exchange rates are displayed. Update this information if 
required by amending the DATA statements. 

To carry out your conversion all you have to do is to input the country’s name 
(remember, begin this with a capital letter), select 1 or 2 for type of conversion 
and then input the amount. The result is displayed immediately. 


10 REM 
20 REM 
30 DIM 
40 CLS 


KKX Currency conversion pragram xxx 
KKK Display of data stored x*xk 
land$(18): DIM rate(ia@) 
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SO PRINT "Country"; TAR(20) "Exchange rate" 

60 FRINT 

70 FOR n=1i TO 1i8 

80 READ land#(n),rate(n) 

GSO FRINT land#$(n)3 TAB(20) rate (nd 

100 NEXT n 

110 FRINT 

1230 PRINT "Add data if country nat included" 
120 REM KX conversion calculations kx 

140 PRINT 

150 INFUT "Country required "scountrys 

160 FOR m=1 TO 18 

170 IF land#(n)=country$ THEN p=n 

180 NEXT n 

190 CLS 

200 FRINT “enter 1 for £ to foreign" 

FRINT “enter = for foreign to " 

INFUT "1 or 2"gk 

INFUT “amount of money"s;A 

IF k=1i THEN 260 

IF k=2 THEN 280 

260 PRINT "€ “sAg" = "“:Axkrate(p) 

270 END 

280 FRINT As" foreign currency = £"s ROUND (A/rate(p),2) 
END 

DATA Austria, 25.40, Belgium, 73,Canada,1.57 
DATA Denmark, 13.08,France,11.14,Germany,3.62 
DATA Greece, 160, Ireland,1.175, Italy, 2240 
DATA Malta, %.615, Holland, 4.09, Norway, 19.56 
DATA Fortugal,197,Spain, 198, Sweden, 10.42 
DATA Switzerland, 2.99,USA, 1.1875, Yugoslavia, 295 


8.4 PRODUCING MULTIPLE COPIES, STANDARD LETTERS, ETC. 


DearSir DearMadam DearSir Dear Madam 
Dear Sir DearMadam DearSir Dear Madam 


Dear Sir DearMadam Dear Sir Dear Madam 
Dear Sir DearMadam DearSir Dear Madam 
Dear Sir DearMadam DearSir Dear Madam 


Fig. 8.3 


It is a fairly easy matter to construct programs to print out multiple copies of 
memos, standard letters, etc. Obviously you require access to a printer to direct 
your program output to be ‘printed’ as hard copy. The CPC464 has a standard 
Centronics parallel port interface and it is a simple matter to connect up a 
printer. Amstrad supply their own model. The Epson RX, MX and FX series of 
printers are also excellent choices. 
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Here are two useful programs. The first provides a means of obtaining a 
given number of copies of a general note. All ‘note’ PRINT statements are 
directed to the printer using PRINT #8, “’. . .output to printer’. Remember 
channel 8 (48) is the internal channel used to communicate from the CPC464 
computer to the printer. 


160 REM *#* Froaduction of number af copies xxx 
29 CLS 

SQ INFUT "mumber of copies required"yn 

40 FRINT "Printing /display follows" 

a0 FOR x=1 TO n 

60 FRINT #8:FRINT #8 


70 FRINT #8, Tn ee ee se st te ne ne ee nt nt nt se nee ewe tne 

80 FRINT #8," SALES 11 April at STOWHAM #*x" 
90 PRINT #6, ". 0 nwa Serer a Pe ee 

100 FRINT #8, "4.00085 eee oe A OBtCALLS Nr wane nen ae 
110 PRINT #8, uw ee OO ee u 

120 FRINT FO, Serer em end err re ere 


LQ NEXT x» 


The second program illustrates how a standard letter can be produced with 
the ability to insert common information such as dates, times, places, names, 
etc. A further advantage is that names to whom the letter is to be sent can be 
entered from the keyboard, stored in an array and inserted automatically as the 
letter is being printed. 

The program has been written to output all PRINT data to the screen so you 
can first check the letter contents and ensure all input data has been correctly 
inserted. When the checks have been made and the program is operating 
correctly change all the relevant ‘letter’ PRINT statements to the printer output 
form, i.e. PRINT #8, “...”. 


10 REM X¥*x Standard letter xxx 

20 CLS 

30 PRINT "enter the following for inclusioan:" 
40 FPRINT 

SO INFUT "Date of sending letter";dates 
60 INFUT “Date of planned meeting"simdates 
70 INFUT "Time of meeting"sltimes 

BO INFUT "Room to be used"srooms 

S90 REM *xx Entering people’s names Xxx 
100 DIM names(1d) 

110 FOR n=1 TO 10 

120 FRINT "“name"gng:INFUT names (n) 

120 NEXT n 

140 FOR n=1 TO 10 
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150 FRINT:FRINT 

160 PRINT TAB(20)3 "CFC 464 Computers Inc" 
170 FRINT TAR(20);" Ipswitch, Suffolk" 
180 FRINT:FRINT TAR(25) sdate$ 

190 FRINT "Dear "sname$(nd;"," 

200 FRINT:FRINT " The next introductory course 
210 FRINT "is an "smdate$s" ." 

220 FRINT "The time of the class is "sltimes 
250 FRINT "and will be in "sroom#s;" ." 

240 FRINT 

250 PRINT TAB(25)3"6G FL Alexis" 

260 FRINT TAR (21) 3 "Chief Instructor " 

270 FRINTsPRINT 

280 PRIN] “See see Scare reste 4 

290 PRINT: FRINT: FRINT 

SOQ NEXT n 


8.5 A BILL-CHECKING PROGRAM 


ELECTRICITY 


GAS 


Fig. 8.4 


Here is the framework of a program which allows you to check your domestic 
bills. You are asked to input the relevant data, such as present and previous 
meter readings, rate in the pound levied, etc. and you can store constant data 
such as standing charge, unit cost, VAT, etc. in DATA statements. 

Three examples are included: house rates, and electricity and gas bills. 


10 REM &*¥xk Bill checking program xxx 
20 CLS 

30 PRINT "Enter ...1 for house rates" 
40 FRINT "Enter ...2 for electricity" 
30 PRINT "Enter ...3 for gas" 

60 INFUT n 

79 IF n> THEN FRINT "incerrect entry":GOTO 60 
BO ON n GOTO 90,1506, 290 

90 REM XxXxk House rates xXx 

100 rateable. value=467 

110 CLS: PRINT "rate bill check" 

120 INFUT "Current rate in pound"sr 


120 
140 
150 
140 
170 
180 
190 
2OQ 
210 
220 
S20 
240 


250 


260 
270 
280 
290 
BOO 
310 


8.6 


Some Practical Programs 


FRINT:FRINT "Annual rates ="srateable. valuerkr 
END 

REM XxX Electricity bill check Xxx 

CLS:FRINT "Electricity bill check" 

INFUT "Current meter reading":naw 

INFUT "Frevious meter reading"slast 
unit.cast=4. 94 

standing. charge=6.37: vat=0 


FRINT (now-last)s" units at "sunit.cost;" FP ="; 
PRINT (now-last) kunit.cost/100 

FRINT "Standing charge ="sstanding. charge 
total=standing. charge+t (now-last) kunit.cost/100 
FRINT "vat at "svats " “4% = "svatxktotal/1o00 
PRINT "---- een nr nn es 

FRINT "Total payable ="stotal xk (i+vat/100) 


END 

REM Xxx Gas bill check xxx 
CLS:FRINT "Gas bill check":FPRINT 
therm. factor=1.0382 
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PRINT "Enter present and previous meter readings" 


INFUT now, last 

unit.c=35.2: stand.c=9.9:vat=0 

FRINT (now-last)s" units at "sumit.cs" = "3 
FRINT (now-last) kunit.c/100 
total=(now-last) kunit.c/1004+stand.c 

PRINT "Standing charge = "sstand.c 

PRINT "vat at "gvaty " % = "stotalxvat/1o0 
FRINTSPRINT "-~-----------—---- - -- - - - s 
PRINT "Total payable ="stotal k(1+vat/100) 


CALCULATION OF INCOME TAX 


This program enables income tax to be easily calculated. It contains the rates 
for the 84/85 tax year so these will require updating when the tax rates are 
changed. All you have to do is enter gross income and total allowances; the 
program then displays the total tax due. 


10 
20 
te) 
40) 
SO 
60 
70 
80 
90 


100 
110 


REM Xxx Income tax program xXx 

CLS 
REM xx Tax bands 84-85 *xx 

PRINT “taxable income","tax rate" 
FRINT 
PRINT "1-15400", TAB(CZO);" SO % " 
FRINT "iS401-18200", TAR(ZO) 3" 40 4% " 
FRINT "18201-22100", TAB(SO)3" 45 % 
PRINT "22101-30600", TAR(2Z0)2" 50 % " 
FRINT "30601-38100", TAB (CEO) 

FRINT “over 28100", TAR (SOQ); 


: uw Ss %, a 
1 


' 60 A thy 
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120 b1i=15400 : bR=18200 : bS=PR100 

130 b4=20600 : bS=38100 

140 PRINT : FRINT 

150 FRINT “Enter your gross taxable income"; 
160 INFUT income 
170 INPUT "and your allowances "sallow 

180 taxinc=income-allow 

190 IF taxince?O AND taxinc’=15400 THEN 250 

200 IF taxinc?i5400 AND taxinc*t=18200 THEN 270 
210 IF taxinc?18200 AND taxince=235100 THEN 290 
220 IF taxinces33100 AND taxince=30600 THEN Bio 
230 IF taxince?30600 AND taxinc*t=38100 THEN 330 
240 IF taxinc?38100 THEN 350 

2o0 tax=taxincko,S 

260 FRINTsFPRINT "Tax due ="stax:END 

270 tax=4620+ (taxinec—-bl)xo.4 

280 PRINT:PRINT "Tax due="stax:END 

290 tax=5740+ (taxinc-bS) *0,45 

200 FRINT:F RINT "Tax due="stax :END 

S10 tax=7945+ (taxince-bS) ko.5 

320 PRINTsPRINT "Tax due="agtax END 

S20 tax=11695+ (taxince—-b4) xO. 55 

240 FRINTsFPRINT "Tax due="stax sEND 

2o0 tax=15820+ (taxinc-bS) x0.6 

260 FRINT:FRINT "Tax due="stax sEND 


8.7 CALCULATION OF INTEREST AND RETURN ON INVESTMENT 


Two useful programs for calculations of interest and value of investment are 
given below. 

The first can be used to calculate how your money grows in a regular monthly 
savings plan provided by most Building Societies, Banks and Insurance groups. 
You input whatever monthly sum you wish to save monthly, the current 
interest rate and the time in years for your savings plan. The program displays 
the accrued value of your savings at 6 months intervals. Interest is assumed to 
be compounded every 6 months, as is usually the case for most savings plans. 
For this reason use is made of the MOD operator (see line 110). MOD provides 
the remainder after division of two numbers. Thus n MOD 6 = 0 whena = 6, 
12, 18, etc., and hence line 110 is only actioned when n is a multiple of 6. 


1O REM &Xkk Interests Reqular Savings kx 

20 CLS 

“0 INFUT "Amount to be saved each month"spm 
40 INFUT “Rate of interest “"ser 

SO INFUT "“Feriod af investment "st 


Some Practical Programs 


60 FRINT "months", “accrued value" 

70 FRINT 

80 FOR m=1 TO i2fxkt 

SO p=pt+pm 

LOO P=itpkxr /LeaG 

110 IF mn MOD 6=0 THEN p=pt+i:i=O:FRINT n,p 
120 NEXT n 

120 PRINT: FRINT 

140 PRINT "Total value of investment" 

ISO PRINT "after "sts" years = "3 
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This second program provides a table of values showing how a /ump sum 
investment grows. All you have to do on running the program is input the lump 
sum invested, rate of interest, number of years of investment and whether 


interest is compounded every 6 or 12 months. 


Lo REM AXX Lup sum investment xx 

20 CLS 

20 INFUT "Lump sum invested" yp 

40 INFUT "Rate of interest Z”"gr 

aC INFUT "Total no. of vears invested'"st 

60 FRINT 

70 FRINT "If interest compounded every 6 months" 


8O FRINT "enter...43 af every IS months, enter...1e" 


90 INFUT g 

LOO FRINT 

110 PRINT "month"; TABCB) "capital values 
120 FRINT TARC22) "interest for" 

120 FRINT TAR(246) "period" 

140 PRINT 

150 FOR m=1 TO L2xt 

160 a=pk (1l4+r /1 200) 

170 i=it(a-p) 

180 IF nm MOD g =0 THEN 190 ELSE 22a 

1990 p=pti 

200 PRINT ns TAR CR) ROUND (p, 2) 5 TABCS3) ROUND (I, 2} 
210 i=0 


220 NEXT nm 


8.8 A LOAN REPAYMENT PROGRAM 


The program given below allows you to work out immediately the state of how 
your loan repayments are progressing. Repayments are assumed to be made on 


a regular monthly basis. 


On running the program you are first asked to input the amount of the loan, 
the monthly repayment you wish to make, and the interest rate you are going to 
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be charged. The program then provides a display of a table of total repay- 
ments made and outstanding debt on a month by month basis until the loan is 
paid off. 


10 REM *x* Loan repayment program x** 

2° CLS 

20 INFUT "Enter total loan"sloan 

40 INFUT "Enter rate % p.a. charged"sr 

20 INFUT "Enter proposed monthly repayment"srepay 
60 IF loantr/1200%repay THEN 70 ELSE 90 

70 PRINT "Repayment is insufficient ta cover." 
80 FRINT "Increase repayment":sGOTO So 

90 month=O:FRINTsFRINT 

100 PRINT "month"; TARCIG) "total repaid": 

110 FRINT TAB(25) "outstanding debt" 

120 WHILE loan?o 

120 month=month+l 

140 loan=loank (14+r/1200)-repay 

150 FRINT month, repayxXmonth, ROUND (loan, 2) 

160 WEND 

170 PRINT “Loan is paid off in " 

180 FRINT months" months" 

190 PRINT 

200 PRINT "Total repayments ="srepayxmonth+loan 


ANSWERS TO EXERCISES 


Exercise 1.1 


(1) 1332 

(2) 160800 

(3) 9.99514349 
(4) 862.95 

(5) 49.17647 


Exercise 1.2 


(1) (a) 

PRINT 56.7/3.3 [ENTER] 

17.1818182 . . . answer displayed 

(b) 

PRINT ‘'56.7/3.3="';56.7/3.3 [ENTER] 

(c) 

PRINT USING “##.##';56.7/3.3 [ENTER] 

17.18 . . . result displayed 

(3) 

PRINT 4.62*3.8,57.33/6.3,42378.6—33499.7 [ENTER] 
4.62 9.1 8878.9 . .. results displayed 
(4) 

PRINT USING ‘’#.#’;PIl [ENTER] 

3.1 ... result displayed 

PRINT USING “#.##”;PI [ENTER] 

3.14 .. . result displayed 

PRINT USING “#.#+#+#”;PI [ENTER] 

3.142 ... result displayed 


Exercise 1.3 


(1) 4.72944 
(2) 726000 
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(3) 6.37690E—04 
(4) 8.695652 
(5) 6.294135E—03 


Exercise 2 
(1)(a) 


10 REM #¥X names and birth dates xxx 
20 CLS 

=O PRINT "Name", "Birth date" 

40 FRINT 

SO PRINT "John", "10,11.67" 

60 PRINT "Mary", "14. 7.69" 

70 PRINT "Feter"," 2. 3.74" 


(b) 


LO REM #** Items and price list kx 
20 CLS 

30 FRINT "item", "Frice" 

40 FRINT 

SO PRINT "Butter","O.92 per kilo" 

60 PRINT "Cheese","1.14 per 1b" 

70 PRINT "Bacon","1.25 per kila " 


10 REM #X* League table «xx 

20 CLS 

30 MODE 2 

40 PRINT TAB(C20) "XX North Division 1 kx" 

20 FRINT 

69 PRINT TAR(20) "F's TAB(24) "W"s TAR (28) "D"3 

79 FRINT TARCS2) "L's TABRCE6) "F's TAR(4O) "A's: 

8G FRINT TAR(44)"Foaints" 

90 FRINT 

100 PRINT "Woodside Rovers"; TAB(20) "41"; TAB(24) "22"5 
110 PRINT TABCSB)"12"5 TABCS2)"6"3 TAR( 36) "B2"5 

120 FRINT TAB(40) "21i"3 TAB(44) "79" 

120 PRINT "Old Folyonians"; TAR(20) "41"; TAB(24) "20": 
140 FRINT TARB(2SB8) "14": TABRCZSI "7" 3 TABRCS6)"71"'5 

150 PRINT TAR(C40) "29"5 TAR (44) "74" 
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(2)(a) and (b) 


10 REM XxX Volume of cuboid «xx 

20 CLS 

30 b=2, 27 

40 155.74 

oO d=1.86 

60 FRINT "volume ="sbx1 xd 

70 PRINT '------------------ " 

80 REM Xk Volume of cylinder xkx* 

90 FPRINTs PRINT 

160 r=8. 463 

110 h=12.4 

120 FRINT "Volume of cylinder ="s3.142kr4rxkh 
130 PRINT '!\------------- i 


(3) 


LO REM *#* Calculations probem 3 *xx 

20 CLS 

30 FRINT "Answer 1 ="s3.4%5.67-6. 21*4,. 98 
40 FRINTs PRINT 

20 PRINT “Answer 2 ="s5, 87°R24+4,44°2 

60 FPRINTs PRINT 

7Q pSSes 

8O yv=72 

90 o=l, 4 

100 FRINT "Answer 3 ="spoxkvc 


(4) 


10 REM Xxx Simple average program xxx 
209 CLS 

30 sum=20.7+14.5+12.94+135.6 

40 FRINT "Average ="s s5um/4 

oO PRINT '-------- ee" 


Answer = 15.425 
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(5) 

LO REM &*X Compound interest program xxx 
20 CLS 

30 pHlLOoO:t=Sir=11 

40 a=pxk (ltr /100) "t 

SO FRINT "Interest ="sSUSING "“###H. ##" sy a-p 
60 FRINT "for pS"sp,"t="st, "rear 

70 PRINT: FRINT 

BO pF2SrtH32rr=7.5 

90 FRINT "Interest ="SUSING "###H. HH" sy a-p 
100 PRINT "for pe"ap, "te"st,"re"ar 


Answers=(a) 685.06, (b) 227.06 


Exercise 3 
(1) 


10 REM ¥XxX Calculating averaqe xXx 

20 CLS 

SO READ wi,x2yx3y x4, XS, XOX 7 4 eS ees 
40 READ LL yx12,x13.x14, “MIS,xd 6,*17,%18 
SO READ «19,20 

60 sum= w LEN DEN S4N 44K SEN OEN TER BEN G4N 10 
79 sum=sumtx lit+x 1 S+%134+x 144% 154% 16417 
BO sum=sumtx 18+x 19420 

90 PRINT "Average ="ssum/20 

100 DATA 32,14,27,67,73,11,75,89,19, 24 
110 DATA 61,49, 12, 33,47, 55_,16,71,81,92 


Answer=48.9 


(3) 

10 REM XXX Conversion praqram XxX 

20 CLS 

30 FRINT "to convert feet and in to metres" 
40 INFUT "Enter feet,inches";ft,in 

SO m=(1L2Skft+in) k2.54/100 

60 PRINT fts3" feet "sing" in ="sm3" metres" 
70 PRINT: PRINT 

80 FRINT "To convert lbs and oz ta kilos" 
90 INFUT "Enter lbs,oz"3;1b,02 

100 kg=(1lb+o0z/16) kO. 4536 

110 FRINT tbs" lb “sozy “oz = "skgs" kg" 


Answers to Exercises 


Exercise 4 


(1) 


10 REM XXxk password XXX 

20 CLS 

30 INFUT "Enter password" ;pass$ 

40 IF pass = "4401326019" THEN 60 

a0 FRINT "Incorrect password":END 

60 PRINT "Secret message begins, code 2/56#" 
70 PRINT "01000110 10001101 00001010" 

80 FRINT "OL1O111O1 O1010101 “ZY 47/42/18 end" 


(2) 


10 REM XXX To print copies af memo xKxx 
20 CLS 

20 INFUT "No. copies required"in 

40 FOR x=1 TO n 

SO FRINT "To all club members" 

60 PRINT "OOOO KK KKK KKK KKK" 

70 FRINT "The annual General Meeting" 
80 FRINT "will take place ..... 

9O PRINT “OOK KKK KK KKK KKK KKK KKK KKK KK" 
95 FPRINTsFPRINT: PRINT 

160 NEXT x 


(3) 


10 REM XXX READ and find average xxx 
29 CLS 

20 INFUT "no. af terms"3gna.terms 

40 FOR n=1 TO no. terms 

30 READ x 

60 SuUM=sSsuM+x 

70 NEXT n 

BO FRINT:FRINT 

90 FRINT "Average ="ssum/na.terms 

100 DATA 12,65, 98, 22,90, 24, 77,41, 32,88 
110 DATA 62, 89,43, 22,9,48,76,83, 21,34 
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10 REM kKE Selection of courses of action *xk* 
20 CLS 

20 FRINT “Enter 1...for action A" 

40 PRINT “Enter @...for action B" 

Sag FRINT “Enter 3...far actian C" 

60 PRINT "Enter 4...for action D" 

70 FRINT “Enter S...for actian E" 

80 INFUT n 

90 IF neS THEN PRINT “incorrect entry"sGOTO 86 
100 PRINT:PRINT 

110 ON nm GOTO 126,130, 140,150,160 

120 FRINT “Action A...."2END 

120 FRINT "Action B...."sEND 

140 FRINT “Action C...." END 

150 FRINT "Action D.... "END 

160 FRINT “Action E...."Z:END 


(5) 


10 REM &X¥* to determine Max and Min values kx 
20 CLS 

20 no.terms=10 :GOSUB BO 

40 no. terms=20:G0SUB 8o 

SO INFUT "No. of terms ta be read"sno. terms 

60 GOSUB BO 

70 END 

BO REM ¥X Subroutine for Max and Min xx 

90 xmax=-LE+1O:xmin=1E+10 

100 FOR n=1 TO no.terms 

110 READ ;: 

120 IF x ?yxmax THEN xmax=x 

120 IF xexmin THEN xmin=x 

140 NEXT n 

150 FRINT "For "“gnoa.terms;" terms" 

160 FRINT "Max value ="smax 

170 FRINT "Min value ="sxmin 

180 FRINT:FRINT 

190 RESTORE 

200 RETURN 

210 DATA 22,45, 78,45, 23,29,56,23,45,66 
220 DATA 24,89, 24,71,24,41,56,78,98,21 
220 DATA 1271,86,4,67,98,24,67,92 


Answers to Exercises 


Exercise 5 


(2) 

10 REM *X* To generate 16 random mos xX 
20 REM XXX in range 1 to SS xxx 

20 CLS 

40 FOR n=1 TO 16 

a0 y=RND (n) 

60 PRINT INT (SSxy)+1 

70 NEXT nm 


(3) 

10 REM ¥*k User defined functions xx*x 
1S CLS 

20 REM XX function for average of = kx 
320 DEF FNAVERAGE (a,b,c) =(Catb+o) /3 

40 a=78.54:b=42,.74:c=82. 64 

20 FRINT FNAVERAGE (a,b,c) 

60 FRINT FNAVERAGE (88. 7, 225.3, 66,. 6) 

70 FRINT FNAVERAGE (4,6, 5) 

BO FRINT:FPRINT 

90 REM XX volume of cylinder xx 

100 DEF FN vol ir,h)=FIkr kre xh 

110 r=7sh=21:FPRINT FN vol (r,h) 

120 FRINT FN vol (4.5,8.9) 


(4)(a) 30 
(b) 25 
(c) 26 


(5)(a) 90 44 59 57 
45 61 42 33 

(b) v # : Vv 

little man little man walking 


Exercise 6 
(1)(a) 


10 REM XxXxk Drawing a rectangle «xx 
15 CLS 

20 MOVE 30,50 

20 DRAW SO, 200 

40 DRAW SO, 200 
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30 DRAW S00, 200 
60 DRAW 500, 50 
70 DRAW 350,50 


(b) 

19 REM XxX Drawing right angled triangle xxx 
1S CLS 

20 MOVE 0,0 

BO DRAW 400,06 

40 DRAWR G, 250 

v0 DRAW 0,0 


(2)(a) 

10 REM 4x Drawing a circle xx 
20 CLS 

20 ORIGIN 220,200 

40 DEG 


50 FOR n=1 TO 340 
60 “=150xCOS (n) 
70 y=1TSOxSIN Gn) 
BO PLOT xay 


SO NEXT n 

(b) 

10 REM XXX Drawing an ellipse xxx 
20 CLS 


20 ORIGIN 200, 200 

40 a=100:s b=70 

30 FOR x=-a TO a 

60 y=b/axkSOR (avS-x "3 
70 PLOT way 

80 FLOT x,z-y 

90 NEXT x 


~ 


(3) 


10 REM ¥Xx Drawing house Xxx 
20 CLS 

30 ORIGIN 0,4 

40 MOVE 20,0 

20 DRAW 600,06 

60 DRAWR ©, 150 


7O 
BO 
90 


Answers to Exercises 
DRAWR -380,6 
DRAW 20,0 
MOVE 20,150 


100 DRAW 310, 200 

110 DRAW 600,150 

120 x=602 y=40 

120 GOSUB 220 

140 x=2008 y=40 

150 GOSUB 220 

160 “=500s y=40 

170 GOSUB 220 

180 MOVE 350,0 

190 DRAWR ©, 100: DRAWR 80,0 :DRAWR 0, -100 
200 MOVE SOO, 200 

210 DRAWR ©, 190: DRAWR 30,0:DRAWR 0,-110 
220 END 


toes tle Se 


220 REM XxX Drawing window xx 


Bins tent 


240 MOVE xy 
250 DRAWR 40,0:DRAWR 0,40 
260 DRAWR —40,0:DRAW x,y 
270 RETURN 


(4) 


16 
20) 
a0 
40 
BO 
60 
70 
BG 
9oO 
Loo 
110 
L200 
130 
140 
{So 
140 
176 


REM XXX To plot cos x XXX 
CLS 

ORIGIN 220, 200 

MOVE -320,0: DRAW 320,0 

DEG 

FOR xe-320 TO S20 

FLOT «x, 1OO0*COS (x3 

NEXT x 

REM xxx Short delay xx 
FOR d=i TO S000:NEXT dl 
REM «kk Ta plat y=400exp(-x) KKK 
CLS 

ORIGIN ©, & 
MOVE G,O:DRAW 600, 6 

FOR x= 0 TO S STEF G.1 
FLOT 1O0ks, 400KEXKP (-x) 
NEXT x 
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(5) 


10 REM Xxx To plot graph using given points xxx 


20 CLS 

=O ORIGIN 6,6 

40 MOVE 0,0:DRAW 600, 6 

90 MOVE 300,25: TAG:FRINT "x-axis": 
60 MOVE ©,0:DRAW ©, 400 

70 MOVE 25, 350:FPRINT "“y-axis"s 

8O FOR n=1 TO 13 

90 READ xay 

100 PLOT x,y 

110 NEXT n 

120 DATA 0,30, 30,75, 60,120, 90, 156,120,198 
130 DATA 150,224, 180, 237, 210, 228, 240, 201 
140 DATA 270,150, 300, 126, 320, 70, 260, 25 


Exercise 7 
(1) 


10 REM *** To enter and display list kx 
20 CLS 

20 DIM item$(10):DIM price (io) 

40 FOR n=1 TO 1G 

30 INFUT "name of item" sname% (n> 
60 INFUT "price of item"sprice(n) 
7Q NEXT n 

80 CLS 

90 FRINT “item's; TAB(C1S) "price" 

LOO FRINT 

1190 FOR ni TO it 

120 PRINT name#(n)s TAB CIS price (n) 
130 NEXT n 


10 REM XXX Froblem 2: display list...etc *xkx 
209 CLS 

20 DIM item#(10):DIM price (10) 

40 DIM no(1o) 

30 FOR n=1i TO 10 

60 INFUT “name of item"sname% (n) 

70 INFUT "price of item"sprice(n) 


80 
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INFUT "no.of items"sno(n) 


90 NEXT n 


Saale) 
110 
120 
130 
140 
150 
160 
170 
180 
190 


ZOO 


(3) 


CLS 

PRINT "item"; TAR(1IS) "prices 

FRINT TAR(22) "no.items"s TAR(30) "value" 
FRINT 

FOR n=1 TO 10 

FRINT name%(n);TAR(1S) price (n): 

FRINT TAR(22) no(n) sTAR(Z0) price (n) kno (n) 
sum=sumtprice (n) kXno(n) 


NEXT n 
FRINT: PRINT 
FRINT "Total value ="3sum 


10 REM X*Xxk Display of exam results xxx 
20 CLS 

30 class.size=3 

40 DIM name#(class.size) 

20 DIM marks (32, 4) 

60 FOR n=1 TO class.size 


70 


INFUT "name "sname%(n) 


8O FOR j=1 TO 4 
90 FRINT "mark "sjg2INFUuT marks(n, ji) 


100 
110 
120 
130 
140 
150 
160 
170 
1806 


NEXT j 
NEXT n 
FOR n=1 TO class.size 


FRINT name (n)sTAR(IS) s 
FOR j=1 TO 4 

PRINT marks (n, j)3 

NEXT 3 

FRINT 

NEXT n 


(4) See section 6.6, example 3. 


(5) 

10 REM *xXxk Solution problem 3 xxx 
20 CLS 

20 INFUT "Na. of terms"sno.terms 


40 DIM x (50) 
£0 FOR n=1 TO no.terms 
60 READ x (n) 
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70 NEXT n 

80 REM xXx Sort routine xxx 

90 FOR k=1 TO no.terms-1 

100 FOR 1=k+1 TO no.terms 

110 IF x(1l) 3x (k) THEN 150 

120 temp =x (1) 

120 “x (1) =x (Ck) 

140 x(k) =temp 

150 NEXT 1 

160 NEXT k 

170 FRINT:FRINT 

180 FRINT "Max value ="3x (no.terms) 

190 FRINT "Min value ="8x (1) 

200 mid=INT (no. terms/2) 

210 PRINT "Mid value ="sx (mid) 

220 FRINT:FRINT 

220 n=1 

240 FRINT "Values in © - 235 band: " 

200 WHILE x(n) <=25 

260 FRINT x (n)3 

270 n=n+1 

280 WEND 

290 FRINT:FRINT:FPRINT “Values in 25 -S0Q band:" 
200 WHILE x(n) 235 AND x(n) <=50 

S10 PRINT x(n) sen=n+1sWEND 

220 FRINT:PRINT:FPRINT "Values in S1 -75 band:" 
330 WHILE x(n) 350 AND x(n) 2£=75 

240 PRINT x (nm) sin=n+1:sWEND 

250 FRINT:FPRINT:PRINT "Values in 76 -100 band:" 
260 WHILE x(n) 275 AND x (nd e=100 

370 PRINT x (nm) ¢in=n+1:WEND 

380 DATA 78,25,67,354,25,90,2,61,9,12 
390 DATA 44,82,28,67,12,21,8,44, 72,56 
400 DATA 17,74,93,11,67,52,83,91,62,10 
410 DATA 97,322,534, 63, 73,79,95, 52,351,135 
420 DATA 56,28, 94, 74,81, 76,7,82,9,435 


10 REM XXX Name and phone no. list xXx 
20 CLS 

20 DIM name.no (30) 

40 INFUT "No. of names"snmax 

30 FOR n=i TO nmax 
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60 INFUT "Name and phone no. "3name.nos(n) 
70 NEXT nm 

80 CLS 

90 FRINT "Names and phone numbers" 

100 PRINT 

110 FOR n=1 TO nmax 

120 FRINT name. no$(n) 

120 NEXT n 
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(7) Use above program with addition of alphabetic sort routine of section 7.5. 
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SUMMARY OF BASIC KEYWORDS USED IN DIRECT COMMANDS AND 
PROGRAM STATEMENTS 


AUTO is a direct command which automatically assigns line numbers in 
steps of 10 commencing with 10, i.e. 10, 20, 30. . . ; pressing the ESC key 
cancels the automatic line numbering 

AUTO 100,20 automatically generates line numbers starting at 100 with 
increments of 20 

BORDER ink number sets the colour of the screen border; ink number 
table is given in fig. 1.8 

CAT displays the names of all files stored on the tape cassette currently in 
the datacorder (Amstrad integral cassette player) 

CLOSEIN is used in conjunction with files to ‘close’ the file when 
required input data has been read into computer from the file stored on 
cassette (see section 7.6) 

CLOSEOUT ‘closes’ a file when all the data from the computer has been 
written to the file (see section 7.6) 

CLS clears the screen display 

CONT ‘continues’ program execution after it has been halted by STOP 
or END statements or a BREAK command; execution CONTinues at the 
next line after the STOP or END statements or where BREAK was made (see 
section 3.4) 


DATA stores data within a program; a DATA statement may appear 
anywhere within a program; see also READ and section 3.3 

DEF FN defines a ‘user-defined’ function (see section 5.7) 

DEG sets the ‘degree’ mode and is useful for finding sin x, cos x, tan x 


where x is specified in degrees; if DEG is not used the radian measure is 
assumed 

DELETE is a direct command used to delete program lines 

DELETE 100 deletes line 100 

DELETE —100 deletes all lines up to and including 100 
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DELETE 100— deletes all lines from 100 to end of program 

DELETE 100—300 deletes range of lines specified 

DIM allocates memory space in the computer for arrays (see section 
7.2) 

DRAW x,y draws a straight line on the screen from the current graphics 
cursor position to the absolute position specified by x,y (see section 
6.2) 

DRAWR xr,yr draws a straight line from the current graphics cursor 


position a further (relative) xr units horizontally and yr units vertically (see 
section 6.3) 

EDIT line number is a direct command used to call a specific line in the 
program for editing (see section 2.7) 

END an END statement is used to ‘end’ program execution and return 
cursor to the screen; END is implicit in Amstrad BASIC as execution reaches 
the last line statement so that the last line need not contain END; useful, 
however for ‘ending’ execution after jumping in a program 

EOF End-Of-File function used to check whether file input from cassette 
is at the end-of-file (see section 7.6) 

ERASE array identifier ERASEs an array in a program when no longer 
required so that the memory space may be reclaimed for other use 

FOR... TO... NEXT repeatedly executes a group of statements a 
specified number of times (see section 4.3) 

FRE determines the size of the computer memory which currently 
remains unused by the BASIC; used as follows 
FRE (number) ... where number = 0 say, returns unused memory 
size; 

FRE (‘’ ’) . . . forces a ‘garbage’ collection before returning value for 
unused memory space 

GOSUB ... RETURN transfers program execution to a subroutine; 
subroutine is then executed and ‘return’ made to line immediately following 
GOSUB statement (see section 4.7) 


GOTO can be used both as a direct mode command and as a BASIC 
statement to cause a jump in program execution (see section 4.6) 

IF... THEN IF statements are used to make decisions in 

programs, i.e. to conditionally determine 

IF... THEN... ELSE branch points in a program (see section 4.2) 

INK changes the paper and pen colours (see section 1.8 and figs. 1.8 and 
1.9) 

INPUT inputs values to the computer directly from the keyboard (see 


section 3.2) or in the form INPUT#9,x or x$ from a file stored on cassette (see 
section 7.6) 

LET is used in assignment statements, e.g. 
10 LET x=7.98 ; no longer required and LET can always be omitted (see 
section 2.3) 
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LIST is a direct command used to list the entire program currently stored 
in the computer 

LIST #8 directs listing of program to printer (see section 2.6) 

LIST —100 displays (lists) program from beginning to line 100 

LIST 100— displays program from line 100 to end of program 

LIST 100—400 lists program statements between lines 100 and 400 

LOAD “program name” ‘loads’ program from cassette to computer; 
program name is specified within the quotation marks (see section 2.8) 

LOCATE ‘locates’ or positions the character cursor to a given position on 
the screen (see section 6.3) 

MERGE “‘file program” ‘merges’ a program from cassette with the 
program currently stored in the computer; the name of the file program to be 
merged is specified within the quotation marks 

MODE n changes screen mode; mode number 
n=0 for large character, multi-colour mode, 
n=1 for normal 40 column mode, 
n=2 for high resolution 80 column mode 
(see section 1.7) 


MOVE x,y moves the graphics cursor to the graphics coordinates 
absolute position x,y (see section 6.3) 

MOVER xr,yr moves the graphics cursor to the position xr, yr relative to 
the currect graphics cursor position (see section 6.3) 

NEW is a direct command which clears the currently stored program and 
variables from the computer’s memory, and allows us to start ‘a-new’ 

NEXT is used as a delimiter at the end of aFOR...TO... NEXT loop 
(see section 4.3) 

ON n GOSUB... statements cause program execution to jump to a 


subroutine according to the value of the select variable n (see section 4.7), 
return is made after completion of subroutine to line immediately following 
ON ...GOSUB... statement 

ON n GOTO has a similar action to ON... GOSUB, executing transfer 
to a given line number according to the value of the select variable n (see 
section 4.6) 

OPENIN “‘filename”’ is used in conjunction with files on cassette; opens 
the file, whose name is specified within the quotes, ready for inputting data 
from the file to the computer (see section 7.6) 

OPENOUT “‘filename”’ opens an output file on cassette for outputting 
data to; name of file so created is specified within quotes (see section 
7.6) 

ORIGIN X,Y changes position of graphics origin by X pixels horizontally 
and Y pixels vertically from ‘normal’ origin position at the bottom left-hand 
corner of the screen (see section 6.2) 

ORIGIN X,Y , left, right, top , bottom defines new origin and graphics 
window, all positions defined in graphics pixels 
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PAPER paper number sets the colour on the screen background (see 
section 1.8 and fig. 1.9) 

PEN pen number sets the colour of the screen characters, line drawings, 
etc. (see section 1.8 and fig. 1.9) 

Pl the CPC464 stores x to 9 significant figures as PI, i.e. PRINT PI 
returns 3.14159265 

PLOT x,y plots the point (x,y) with reference to graphics coordinate 
system (see section 6.2) 

PLOTR xr,yr plots the point relative to the current graphics cursor 
position (see section 6.2) 

PRINT... is the BASIC output command ; Amstrad BASIC allows the 
use of ? as shorthand for PRINT 

PRINT 52.6*4.9 outputs the results of calculations as a display on the 
screen (see sections 1.3 and 1.6) 

PRINT “’. . .string’”’ displays the characters within the quotation marks 
(i.e. the string) on the screen (see section 1.5) 

PRINT #8,... directs output to printer (see section 2.6) 

RAD sets the radian angular measure mode (see section 5.5) 

READ x fetches data from DATA statements and assigns it to variable x 
(see section 3.3) 

REM REMark statements are used to include comments in the program; 
such statements are skipped over in program execution. N.B. A single quote 
character ' in a line which is not part of a string expression is equivalent to 
:REM 

RENUM automatically renumbers program line statements starting at 
10 in increments of 10 

RENUM 50,20 renumbers line statements starting at 50 with increments 
of 20 (see section 2.3) 

RESTORE RESTORES the position of the READ pointer to the first 
data item in the first DATA statement (see section 3.5) 

RESTORE line number RESTORES pointer to beginning of the DATA 
statement specified by the line statement number (see section 3.5) 

RETURN is used in conjunction with GOSUB statements to RETURN 
program execution, after subroutine has been completed, to line statement 
immediately following the GOSUB call (see section 4.7) 

RUN is a direct command to start execution of the current program from 
the beginning (see section 2.3) 

RUN line number executes current program starting at the specified line 
number 

SAVE “program name” SAVEs the program currently in the computer 
on cassette; the program will be saved under the name specified within the 
quotation marks (see section 2.8) 

STOP STOPs program execution at a particular line; execution may be 
resumed using the CONTinue command (see section 3.4) 
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TAG is used in conjunction with graphics keywords MOVE and MOVER 
to attach or ‘TAG’ a character string at a specific place in the graphics 
coordinate system (see section 6.3) 

TAGOFF cancels the TAG operation; subsequent text is then sent to the 
previous character (screen) cursor position at the point at which TAG was 
invoked 

WHILE ... WEND loop is used to repeatedly execute a group of 
statements WHILE some test condition is satisfied (see section 4.4) 

WINDOW #n, left column no., right column no., top line no., bottom line 
no. creates a text window on the screen (see section 6.5) 


APPENDIX Il 


SUMMARY OF STANDARD FUNCTIONS AVAILABLE ON THE AMSTRAD 


CPC464 

Function BASIC 

symbol 

Absolute value ABS(x) 
ASCII code ASC(’’X’’) 
Arctan ATN(x) 
Character CHR$(N) 
function 
Cosine COS(x) 
Exponential EXP(x) 
Hexadecimal HEX$(N) 


conversion 


Examples 


Action 


ABS (—9.8)=9.8 
ABS (99.7)=99.7 


ASC(‘‘a’’)=97 
ASC(“Word’’)=87 


ATN(1)="% radians 
=45° 


CHR$(97)=a 
CHR$(119)=w 


COS(P1/4)=0.7071 


EXP(2.1)=8.1662 


HEX$(65532)=FFFC 


Returns, i.e. 
determines, the absolute 
value or magnitude of x 
Returns ASCII code 
number of the first string 
character 

Returns arctan or tan” 
in radians specifying 
value between —'2 and 
+2; if DEG command 
used, returns tan~! in 
degrees between —90° 
and +90° 

Converts Amstrad code 
number N to its 
equivalent character 
Returns cosine of x 
where x is in radians; if 
the DEG command has 
been invoked then x is 
specified in degrees 
Returns e* where 
e=2.7182818 

Converts the decimal 
number N to 
hexadecimal (base 16) 
number 
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Function BASIC Examples Action 
symbols 
Integer INT(x) INT(42.7)=42 Returns the value of x 
INT(—1.4)=—2 rounded to the nearest 
smallest integer 
String slicing = LEFT$(A$,N) —LEFT$(‘‘Amstrad’’,3) Produces the first NV 
from LEFT —"‘Ams” characters of a string 
starting from LEFT 
String LENgth LEN(A$) LEN(‘““ABC34’’)=5 Determines the LENgth 
of the string (i.e. number 
of characters in string) 
LOG (base e) —LOG(x) LOG(2.0)=0.6931 Returns the natural 


LOG to base 10 LOG10(x) 


LOWER case 
conversion 


MAXimum 


String slicing 
from MIDdle 
MINimum 
(PI) n 


Random 
numbers 


String slicing 
from RIGHT 


LOWERS(AS) 


MAX (no. list) 


MID$(A$,M,N) 


MIN (no. list) 
Pl 


RND(N) 


RIGHTS$(A$,N) 


ROUNDing to ROUND(x,N) 


ano. of decimal 


places 
SiGN 


SGN(x) 


LOG10(3.0)=0.4771 


LOWERS(’‘BRAIN”) 
—brain 


MAX(3,1,5,0.6)=5 


MID$(“‘abcdefgh”’,4,2) 
—de 
MIN(3,1,5,0.6)=0.6 


PRINT PI yields nm as 
3.14159265 


logarithm (log to base e) 
of x, x >0 

Returns logarithm to 
base 10 (common log) of 
x ,x>0 

Converts a string 
containing One or more 
upper case characters to 
the same string but all 
lower case characters 
Determines the 
MAXimum value in the 
list of numbers or 
numerical expressions 
Produces a ‘sub’ string of 
N characters starting 
from the Mth character 
from LEFT 

Determines the 
MINimum value in list 


RND(47) generates random 


number in range 

0.000 . . . to 0.999999999 
RIGHTS$(‘“ABCDEFG"’,3) 
—EFG 


ROUND(9.6745,2)=9.67 
ROUND(9.6745,1)=9.7 


SGN(4.2)=1 
SGN(0)=0 
SGN(—47)=—1 


Produces sub-string of 
last N characters, i.e. N 
RIGHTmost characters 
Rounds number or 
expression x to N 
decimal places 
Determines the sign of x; 
returns —1 if x negative, 
0 if x=0 and 1 if x is 
positive 
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Function BASIC Examples Action 
symbols 
Sine SIN(x) SIN(1)=0.84147098 Calculates sine of x 
DEG:PRINT SIN(45) where x is in radians; if 
—0.7071068 DEG command has been 
invoked then x is 
specified in degrees 
SPACE SPACES$(N) SPACE$(10) creates 10 Creates N spaces 
spaces 
SQuaRE root SQR(x) SOR(2.0)=1.41413562 Determines square root 
of number or expression 
x 
String STR$(x) STR$(45.12) Converts number or 
"45.12" numerical expression x 
to a decimal number 
string 
TABulate TAB(N) PRINT TAB(8) “8 spaces Tabulate function which 
in” will cause N character 
<8 spaces—8 spaces in spaces from margin to be 
left before ‘printing’ a 
string or numerical result 
Tangent TAN(x) TAN(PI/4)=1 Calculates tan x where x 
DEG: PRINT TAN(45) is in radians; range 
—1 limited to —200,000 to 
+200,000; if DEG 
command has been 
invoked then x must be 
specified in degrees 
Upper case UPPERS$(A$) UPPERS$(‘‘Richard’’) Converts all characters 
conversion —RICHARD in a String to upper case 
characters 
VALue VAL (A$) VAL(987.3"") Converts a ‘number’ 


— 987.3 (numeric value) 


string to the actual 
number 
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ABS(X) function 63, 147 
AND operator 54-6 
Arithmetic keys 4,5 
Arrays 102-4 

program examples 105-9 
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ASCII codes 76-7 
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BASIC keywords 21-3, 142-6 
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Brackets 11, 12-13 


BREAK in program execution 4, 22, 39, 42, 
92 


Bubble sort 109-11, 112 


Calculator use 4-7 

CAPS LOCK key 3 

CAT command 142 
Character sets 76-7 
CHR$(n) function 76, 147 
CINT(X) function 63 
CLEAR command 66 
Clearing of screen 7 


CLOSEOUT/CLOSEIN statements 114, 142 


CLR key 3,4,7 

CLS command 22, 23, 24, 142 

Colon (:) 23 

Colours of screen display 15-17 

Comma (,) 8,9 

Comparison operators 45, 55, 56 

Compound interest programs 50-1, 73, 
126-7 

CONT command 39-40, 142 

COPY key 30 


Correcting of mistakes 7-8 

COS(x) function 66, 69-70, 147 
Currency conversion program = 121-2 
Cylinder drawing 89-90 


DATA statements 37, 38, 40-1, 98, 142 
Decision-making statements 43-6, 54-6 
DEF FN command 72, 142 

DEG command 66, 142 

DELkey 3,4,7 

DELETE commands 22, 142-3 

DIM statements 102-4, 143 

DRAW command 70), 81-3, 143 
DRAWR command _— 82-3, 143 


EDIT command 29-30, 143 
Ellipse drawing 89, 90 
END statement 46, 143 
ENTER key 2,3,4, 19 
EOF function 116, 143 
ERASE 143 

ESC key 3,4, 21 
Exponential functions 71 
EXP(X) function 71, 147 


Files 113-17 

FIX(X) function 63, 64 

Flowcharts 44, 47, S1 

FOR. ..TO...NEXT loops 46-51, 143 
Fourier’s theorem 93 

FRE command 143 

Full stop (.) 6 

Function keys 2-4 

Functions defined by user 72-3 


GOSUB...RETURN statements 59-60, 
143 

GOTO commands 56-9, 143 

Graph plotting 98-100 

Graphics system 79, 80 


Hard copy 29 
HEX$(N) function 147 
High-resolution mode 13, 14, 96 


Identifiers 26-8 

IF...THEN...ELSE statements 43-6, 143 
Income tax program 125-6 

INK colours 15-16, 17, 143 

INPUT statements 34-6, 98-9, 143 
Integer variables 27 

INT(X) function 63, 64, 148 


Jump instructions 56-60 


Keyboard 2-4 
Keys, see Arithmetic keys; Arrow keys; 
CLR key; Copy key; DEL key 


LEFT$ function 73-4, 148 

LEN function 75, 148 

LET statement 22, 143 

Letter program 123-4 

Line numbering 19, 20, 24 

Line statements 19, 20, 24 

LIST command 21, 24, 144 
LOAD command 31-2, 144 

Loan repayments program 127-8 
LOCATE command 84-6, 144 
LOGIO(x) function 71, 148 
Logarithmic functions 71 

Logic operators 54-6 

LOG(x) function 71, 148 
Lower/upper case letters 4, 24, 148, 149 


MAX function 148 

MERGE command 148 
MID$ function 74, 148 

MIN function 148 

Modes 13-14, 144 

MOVE command __ 86, 89, 144 
MOVER command _ 86, 144 
Multiple-print program 122-3 


NEW command 21, 24, 66 
NOT operator 54-5 
Numeric variables 26-7 


ON...GOSUB statement 59-60, 144 
ON...GOTO statement 58, 144 
OPENOUT/OPENIN statements 114, 144 
OR operator 54-6 

ORIGIN command 70, 83-4, 144 


PAPER colours 16-17, 145 
Parabola plotting 91-2 

Pen colours 16-17 

Phone number program 116-17 
PI 10, 68, 145, 148 


Pixels 14, 79 


80 
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PLOT command 70, 79-81, 145 
PLOTR command 79, 81, 145 
Polygon drawing 87-8 
PRINT ‘...’command_ 8, 9, 145 
PRINT command _ 7, 23, 145 

? as shorthand 7, 145 
PRINT USING command 8, 9-10, 145 


Printers 29 


Program, definition of 
Program editing 29-30 


Program examples 


18 


23-5, 119-28 


Programming, introduction to 18-20 


RAD command 


66, 67, 145 


Random number generation 64-6 
READ. ..DATAstatements 34, 37-9, 40-1, 


98, 145 


Ready condition 2 


REM statement 


23, 24, 145 


RENUM command = 22, 145 
Repetition statements 


Reserved words 


RESET keys 


3,4 


RESTORE statement 


RETURN statement 


46-54 


26, 142-9 


40-2, 145 


59, 145 


RIGHTS function 74, 148 
RND(N) function 64-6, 148 
ROUND (x,N) function 63, 148 
RUN command 21, 24, 145 


SAVE command 31, 145 
Savings interest programs 50-1, 73, 126-7 
Scaling of graphs 100 


Screen display 
Screen modes 


13-17 
14, 85 


Semi-colon (;) 8, 9, 86 
Sequential files 114 
Setting up 1-2 
SGN(X) function 64, 148 


SHIFT key 3 


Sinewave plotting 70, 93-4 
SIN(x) function 66, 68-9, 149 


Sorting 


alphabetic order 
numeric order 


SPACES$(N) function 
Spiral drawing 92-3 
SQR(X) 11, 62-3, 149 


Standard functions 


Startup 2 


STEP command 49 


STOP statement 


112-13 
109-11 
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62-71, 73-7, 147-9 


39-40, 145 


STR$ function 75-6, 149 
String slicing functions 
String variables 27-8 


Subroutines 
Syntax errors 


59-60 
4, 20 


73-4 
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TAB(N) function 8, 9, 149 

TAG command 86, 146 

TAGOFF command 86, 146 
TAN(x) function 66, 149 
Triangle drawing 86-7, 88 
Trigonometric functions 66-70 
True/false testing 44-5, 51-2, 54 


Units conversion program — 119-20 


Upper/lower case letters 4, 24, 28, 148, 189 


User-defined functions 72-3 


VAL function 75-6, 149 
Variables 26-8 

Wave plotting 70, 91-4 

WHILE. ..WEND loops 51-4, 146 
WINDOW command 94-7, 146 


XOR operator 54-6 
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